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;
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.
|