Ver Mensaje Individual
  #5  
Antiguo 14-12-2009
camariere camariere is offline
Miembro
 
Registrado: abr 2008
Posts: 37
Reputación: 0
camariere Va por buen camino
Yo creo que el problema está en esta variable....

Código Delphi [-]
    vBotonOnClick   : TNotifyEvent;

¿No debería estar declarado como un procedimiento?

Código Delphi [-]

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure vBotonOnClick(Sender: TObject); //Aquí se declara el evento
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Boton: Tbutton;

implementation

{$R *.DFM}

procedure TForm1.vBotonOnClick(Sender: TObject);
var
  Texto: string;
begin
  texto := (Sender as TButton).caption;
  ShowMessage('Botón <'+texto+'> presionado');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Boton := TButton.create(Form1);
  Boton.Parent := Form1;
  Boton.Caption := 'Hola';
  Boton.Height := 120;
  Boton.Left := 20;
  Boton.Width := 130;
  Boton.Enabled := True;
  Boton.visible := True;
  Boton.OnClick := vBotonOnClick; //se asigna el evento
end;
Responder Con Cita