FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Eventos en componentes creados en tiempo de ejecucion
¿Como puedo asignar eventos a un boton creado en tiempo de ejecución?
Para crearlo utilizo el siguiente codigo extraido de las paginas del foro. Con el creo tanto botones como se le indique en el Tedit. El problema es que no se cuando se pulsa uno de esos botones. ¿Como puedo capturar el evento en dicho boton? Gracias por adelantado CODIGO procedure TForm1.Button1Click(Sender: TObject); var i, cont:Integer; p:TButton; begin cont := StrToInt(Edit1.Text); for i := 0 to (cont-1) do begin p := TButton.Create(Self); p.Left := (50 * i); p.Top := 0; p.Width:= 50; p.Height := 20; p.ParentWindow := Self.Panel1.Handle; p.Name := 'Button' + IntToStr(i+4); end; end; |
|
|
|