Delphi - evento en boton creado en tiempo de ejecución

 
Vista:

evento en boton creado en tiempo de ejecución

Publicado por Eloisa (19 intervenciones) el 08/04/2007 03:12:30
Hola!!!!

Soy nueva con Delphi, normalmente trabajo en java, programando los componentes y sus eventos.

Ahora en una forma delphi he creado unos botones en tiempo de ejecución.

BSave := TBitBtn.Create(Self); //Crea el componente BSave
BCancel := TBitBtn.Create(Self); //Crea el componente BCancel

BSave.Parent := Self; //Agrega el componente BSave a la Forma
BCancel.Parent := Self; //Agrega el componente BCancel a la Forma

Ahora quiero manipular el evento click de esos botones.

En Java seria algo asi:

BSave.addActionListener(this) //Agrego el escuchador de eventos

void actionPerformed(ActionEvent ae){ //Cacha los eventos
if(ae.getSource == BSave) //si el evento fue producido por BSave entonces
// Haz esto.....
}

Me gustaría saber si aquí existe algo así o bien donde puedo encontrar información sobre el manejo de eventos en delphi.

De Antemano GRACIAS!!!!

Atte: ELOISA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:evento en boton creado en tiempo de ejecución

Publicado por BigLuis (713 intervenciones) el 08/04/2007 10:59:29
De Java no tengo ni idea pero prueba esto en TurboPascal
begin
MyButton := TButton.Create(Form1);
with MyButton do
BEGIN
Parent := Form1;
height := 32;
width := 128;
caption := 'Aqui estoy!';
left := ((Form1.ClientWidth - width) div 2-SpinEdit1.Value);
top := ((Form1.ClientHeight - height) div 2-SpinEdit2.Value);
OnClick:=Mensaje;
//De la misma forma puedes implementar todos los eventos del boton.
END;
end;

Procedure TForm1.Mensaje(Sender:TObject);
begin
showmessage('He pulsado el boton creado nuevo');
end;
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar