renatobenedetti Novato
Registrado: Quinta-Feira, 12 de Setembro de 2013 Mensagens: 15
|
Enviada: Qua Jul 03, 2024 7:05 pm Assunto: Criar Form com nome parametrizado e passar parâmetros |
|
|
Olá a todos !!
Vejam se conseguem me auxiliar por favor...
preciso criar um form que seu nome é uma string e vem via parâmetro, porem esse form preciso alem de cria-lo, passar parâmetros pra ele.
Exemplo:
CriaForm( 'TFrmCadastro'; Parm1; Parm2 );
//-- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
procedure CriaForm( NomeForm: String; Parm1: String; Parm2: String );
var
FrmCad: TForm;
begin
FrmCad := TFomr( GetClass( NomeForm ).Create();
end;
Agora, como passo os campos PARM1 e PARM2 como parâmetro para o form criado ?
Obrigado |
|