Ola pessoal,

 

Em uma Unit em que guardo algumas funções, publiquei uma procedure onde
passo o nome do formulário que quero criar em tempo de execução. O caso é
que estou recebendo uma mensagem de que “self” não esta declarado. Se alguém
souber me ajudar a resolver isto fico grato, 

 

procedure CriaFormulario(Form: TForm);

begin

  Form:= TForm.Create(Self);

  With Form do

       try

          ShowModal;

       finally

          Free;

          Form:=nil;

       end;

end;

 

Christian Balz

 

 

 



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 

Responder a