asignar evento a control creado dinamicamente

[jorgeganc]

chicos necesito un asignar evento a control creado en forma dinamica y no se como hacerlo,no hay otra forma ya que a lo sumo pueden ser 900 edit y tengo que usar el evento mousedown.
muchas gracias jorge

[delphi.com.ar]

Es tan fácil como intuitivo:
http://www.clubdelphi.com/foros/showthread.php?s=&threadid=4795

Saludos!

[Descendents]

A ver si el ejemplo te sirve


procedure Tform1.superevento(Sender: TObject);
begin
showmessage('hola');
end;
procedure TForm1.superevento2(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage('ole');
end;
procedure TForm1.FormActivate(Sender: TObject);
var
s:Tbutton;
j:Tedit;
begin
s := tbutton.create(self);
s.Parent := self;
s.onclick := superevento;
j:= Tedit.create(self);
j.parent := self;
j.Left := 120;
j.OnMouseDown := superevento2;
end;

Saludos

[Descendents]

Ups se me adelanto ;p

Saludos

[roman]

jorgeganc comentó:
ya que a lo sumo pueden ser 900 edit y tengo que usar el evento mousedown

¿Realmente planeas insertar 900 edits en un sólo formulario?

:o

// Saludos