Function publica p/ utilizar diretamente nos eventos

Question

Ol� pessoal!Gostaria de �enxugar� o c�digo de um programa, e pensei se � poss�vel fazer com que uma fun��o que criei fique dispon�vel para sele��o diretamente na guia �Events� do Object Inspector. Ou ...

Bon Jovi · Answer

Sim, no mesmo local onde o Delphi declara em tempo de design.

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FunctionX(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TForm1.FunctionX(Sender: TObject);
begin
  //...
end;

Mas eu particularmente nunca gostei de usar dessa forma, prefiro setar em tempo de c�digo. Sou meio anti-DFM.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := FunctionX;
end;

Beppe · Answer

Complementando o que o Bon Jovi disse, preste aten��o nos par�metros da fun��o, nem sempre � s� Sender: TObject...

Wbb · Answer

Obrigado pela ajuda.wbb...

Paulo_amorim · Answer

[quote:d62201193a=�Beppe�]Complementando o que o Bon Jovi disse, preste aten��o nos par�metros da fun��o, nem sempre � s� Sender: TObject[/quote:d62201193a]Ol�Complementando oque o Beppe estava complementando o que o Bon Jovi disse (  :roll: ), deve-se ver qual o tipo do evento. No caso do onClick, � TNotifyEvent e por isso eh Sender: TObject...Sempre bom ver no Help o tippo do evento (com os parametros que precisam)At�+...

F�rum Function publica p/ utilizar diretamente nos eventos #239976