FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
asignar evento a control creado dinamicamente
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 |
#2
|
||||
|
||||
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
Ups se me adelanto ;p
Saludos |
#5
|
||||
|
||||
Cita:
// Saludos |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|