Fórum criar evento em run-time #172433

Crie sua Procedure q vai ser chamada e coloque o seu codigo dentro.
Declare a Procedure na clausula Public do seu form

public { Public declarations }
procedure MeuOnClick(Sender: TObject );
end;


E no evento OnCreate do Form indique q procedure ira responder ao evento de OnClick (por exemplo...).

with Application do begin
OnClick := MeuOnClick;
end; //with


Um Abraco
Werlon Goulart

Ei vai tudo pronto...


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private { Private declarations }
public { Public declarations }
Procedure MeuOnClick(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
With Application do begin
OnClick:=MeuOnClick;
end;
end;

procedure TForm1.MeuOnClick(Sender: TObject);
begin
showmessage(´cliquei...´);
end;

end.

Werlon,

Fico muito grato à sua colaboração, mas pelo que pude entender em seu exemplo, a procedure bem colo o evento estão sendo criados em tempo de projeto, por favor corrija-me se estiver errado.

Posso não ter sido claro, por isso vou tentar colocar de outra forma. Supondo que minha aplicação esteja sendo executada, em alguma área da tela (form da aplicação) clico com o botão direito do mouse e escolho criar atalho. Procuro o executável o qual quero que esse atalho execute. Quando confirmo a operação, um botão, imagem, ou label é criado e mostrado na tela da aplicação. A questão é como criar um evento em tempo de execução para este objeto. Seria como criar um atalho no Desktop do Windows.


desde já agradeço toda e qualquer ajuda.

Lindomar