tlabel enabled

[[egostar]]

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.