Ver Mensaje Individual
  #11  
Antiguo 10-05-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 25
egostar Va camino a la fama
Cita:
Empezado por Wellnic
A propósito de esto, ¿se les puede asignar o crear eventos a los objetos creados de esta manera? ¿Se puede crear código en tiempo de ejecución?
Pues si, si se puede.

Seria así:

Código Delphi [-]
procedure TForm1.PasarClick(Sender: TObject);
begin
  ShowMessage('Click en Label2');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  pasar: TLabel;
begin
   pasar := TLabel.Create(Form1);
   pasar.Parent  := Form1;
   pasar.name    := 'Label2';
   pasar.Caption := 'Habitacion';
   pasar.Top     := 100;
   pasar.Left    := 100;
   // Aquí se crea el Evento, por ejemplo OnClick.
   pasar.OnClick := PasarClick;
end;

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 10-05-2007 a las 02:01:18.
Responder Con Cita