� poss�vel definir evento OnCreate em tempo de exec.?

Question

Ol�� poss�vel definir um evento OnCreate em tempo de execu��o a partir de outra Unit?Por exemplo:Se eu tiver, no meu Form1, um bot�o que cria outro Form2[code:1:439079c454]Form2 := TForm2.Create(Self)...

Inutaishou · Answer

N�o entendi o que voc� quer, mas atribuir um evento em tempo de execu��o � poss�vel sim... Crie uma procedure com os par�metros que o evento usa...

A�, s� fa�a assim:

Form.OnCreate := Sua_Procedure;

Depois, para desatribuir, troque o Sua_Procedure por Nil e pronto...

[]�s,

Paulo_amorim · Answer

[quote:498cfad496=�GRFrones�]N�o entendi o que voc� quer, mas atribuir um evento em tempo de execu��o � poss�vel sim... Crie uma procedure com os par�metros que o evento usa...A�, s� fa�a assim:[code:1:498cfad496]Form.OnCreate := Sua_Procedure;[/code:1:498cfad496]Depois, para desatribuir, troque o Sua_Procedure por Nil e pronto...[/quote:498cfad496]Ol�[quote:498cfad496=�Paulo_Amorim�]eu tiver uma procedure do tipo TNotifyEvent[/quote:498cfad496]Eu ja tenho a procedure, e j� atribuo... o problema n�o eh como atribuir, mas sim [b:498cfad496]onde[/b:498cfad496] atribuirpois eu tenho, por exemplo:[code:1:498cfad496]procedure Form1.Button1Click(Sender:TObject);begin  Form2 := TForm2.Create(Self);  Form2.ShowModal;  Form2.Free;end;[/code:1:498cfad496]Essa eh minha chamada ao Form2.No Create do Form2 eu quero colocar a procedure FazAlgo (qe jah eh do tipo TNotifyEvent). Mas, no c�digo acima, onde devo incluir essa linha?[code:1:498cfad496]Form2.OnCreate := FazAlgo;[/code:1:498cfad496]Se eu fizer[code:1:498cfad496]Form2.OnCreate := FazAlgo;Form2 := TForm2.Create(Self);[/code:1:498cfad496]ent�o ir� gerar Access Violation, pois acessei Form2 antes dele exisitrPor outro lado, se eu fizer[code:1:498cfad496]Form2 := TForm2.Create(Self);Form2.OnCreate := FazAlgo;[/code:1:498cfad496]ent�o a procedure eh in�til, j� que o Form2 eh criado antes da procedure ser atribu�da (ou seja, ela n�o ser� executada).Pensando assim, eh [i:498cfad496]invi�vel [/i:498cfad496](e n�o imposs�vel, como disse no ...

Inutaishou · Answer

Hmmm... Agora entendi...Tenta fazer assim:[code:1:c517c50c18]    Form2 := TForm2.Create( Self );    FazAlgo;    Form2.ShowModal;    FreeAndNil( Form2 );[/code:1:c517c50c18]N�o encontrei nenhum outro jeito aqui...Mas se eu conseguir, te aviso... Se conseguir n�o esque�a de postar tamb�m...[]�s,...

Paulo_amorim · Answer

[quote:425e31b0bb=�GRFrones�]Tenta fazer assim:[code:1:425e31b0bb]    Form2 := TForm2.Create( Self );    FazAlgo;    Form2.ShowModal;    FreeAndNil( Form2 );[/code:1:425e31b0bb]N�o encontrei nenhum outro jeito aqui...Mas se eu conseguir, te aviso... Se conseguir n�o esque�a de postar tamb�m...[/quote:425e31b0bb]Ol�Isso que eu pensei tamb�m...S� queria saber se dava pra setar o evento em si... mas acho que vc ta certoClaro, se houver jeito, ele vai aparecer :wink:At�+...

Marcelo Saviski · Answer

va podia fazer assim tb:[code:1:e7355b85d5]TForm2 = class   .............private  {private declaration}public  procedure DoCreate; override;end;[/code:1:e7355b85d5].....[code:1:e7355b85d5]procedure TForm2.DoCreate;begin  inherited;  //faz alguma coisaend;[/code:1:e7355b85d5]tem o mesmo efeito do OnCreate...

Persist · Answer

Exceto pelo fato que n�o existe a procedure DoCreate em TForm2....

Marcelo Saviski · Answer

sim existe, ele vem do TCustomForm...

Persist · Answer

[quote:4d54630af0]TForm2 = class    ............. private   {private declaration} public   procedure DoCreate; override; end[/quote:4d54630af0]TForm2 � de TObject e n�o possui DoCreate...

Paulo_amorim · Answer

[quote:5778379895=�persist�]TForm2 � de TObject e n�o possui DoCreate[/quote:5778379895]Ol�Pra come�ar, [b:5778379895]todos[/b:5778379895] os objetos descendem de TObject...A hierarquia de um form que vc cria eh[code:1:5778379895]TForm2 - TForm - TCustomForm[/code:1:5778379895]Procure no Help por DoCreate, vc vai achar que ele eh evento de TCustomForm, que eh de onde vem seu Form2...At�+...

Persist · Answer

Ol�, acho que vc n�o viu o c�digo direito. O c�digo exposto pelo Marcelo Saviski foi:

TForm2 = class 
   ............. 
private 
  {private declaration} 
public 
  procedure DoCreate; override; 
end;

Com isto caro colega, TForm2 � descendente direto de TObject e n�o de TForm ou TCustomForm; portanto volto a dizer que neste caso, TForm2 n�o possui o m�todo DoCreate.

Ol�

Sim, se vc levar ao pe da letra
Acho que ele soh quis mostrar em que parte da Unit estava a declara��o... n�o tem porque declarar como descendente de TOBject j� que assim ele nem seria um form...

At�+

Paulo_amorim · Answer

[quote:05aa4dda55=�persist�]Ol�, acho que vc n�o viu o c�digo direito.O c�digo exposto pelo Marcelo Saviski foi:[code:1:05aa4dda55]TForm2 = class    ............. private   {private declaration} public   procedure DoCreate; override; end;[/code:1:05aa4dda55]Com isto caro colega, TForm2 � descendente direto de TObject e n�o de TForm ou TCustomForm; portanto volto a dizer que neste caso, TForm2 n�o possui o m�todo DoCreate.[/quote:05aa4dda55]Ol�Sim, se vc levar ao pe da letraAcho que ele soh quis mostrar em que parte da Unit estava a declara��o... n�o tem porque declarar como descendente de TOBject j� que assim ele nem seria um form...At�+...

Marcelo Saviski · Answer

vc pode redefinir o m�todo [color=green:f524044146]AfterConstruction[/color:f524044146] quando a classe n�o for de um form...

F�rum � poss�vel definir evento OnCreate em tempo de exec.? #243796