Como se cria uma procedure?

Question

Estou come�ando a desenvolver agora, e quero criar uma procedure que chame os forms da minha aplica��o. Fiz o c�digo abaixo mas est� dando o seguinte erro: //Incompatible types: �TForm� and �Class ref...

Okama · Answer

N�o testei o c�digo, mas se vai passar um FORM como par�metro, porque n�o o chama diretamente?

ao inv�s de �ChamaForm(Form1, TForm1)�
use �Form1.ShowModal�

Qual o prop�sito da Procedure?

Beppe · Answer

Se voc� seguiu a conven��o de nomes FormX � um objeto e TFormX � uma refer�ncia para uma classe de formul�rio.

procedure ChamaForm(FormX: TFormX); 
begin 
  if not assigned(FormX) then 
  try 
    FormX := TFormX.Create(nil); 
    FormX.ShowModal; 
  finally 
    FreeAndNil(FormX); 
  end; 
end;

Adriano Dantas · Answer

� Okama, o prop�sito � o seguinte o meu form principal vai chamar uns 50 forms, ent�o n�o quero ter que repetir o c�digo todo, por isso queria uma procedure em que eu s� precisasse passar o nome do form, entendeu?

Beppe · Answer

Ent�o pode ser assim:[code:1:bc160a3039]procedure ChamaForm(FormClass: TFormClass); begin   with FormClass.Create(nil) do  try     ShowModal;   finally     Free;  end; end;procedure ChamaFormEx(Form: TForm; FormClass: TFormClass); begin  if Form = nil then Form := FormClass.Create(nil);  with Form do  try     ShowModal;   finally     Free;  end; end;[/code:1:bc160a3039]...

Adriano Dantas · Answer

Valeu Ataliba deu certo, quem sabe, sabe n�?...

F�rum Como se cria uma procedure? #195773