Ver Mensaje Individual
  #4  
Antiguo 31-05-2008
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 28
jachguate Va por buen camino
No estoy seguro de entender bien tu pregunta... pero si es lo que creo, debes crear un método que cumpla con la firma TNotifyEvent, que es la del evento OnClick, por ejemplo este:

Código Delphi [-]
type
  TForm1 = class(TForm)
  //...
  private
    procedure ClickBotones(Sender: TObject);
  //...
implementation
//...
procedure TForm1.ClickBotones(Sender: TObject);
begin
  Label1.Caption := 'Has hecho click en el botón ' + (Sender as TButton).Caption;
end;
Y luego, cuando creas los botones, asignas este método a su evento OnClick, así:
Código Delphi [-]
var
  NumBotones, I: Integer;
begin
  NumBotones := StrToInt(Edit1.Text);
  for I := 0 to NumBotones - 1 do
  begin
    with TButton.Create(Self) do
    begin
      Name := 'Boton' + IntToStr(I);
      Parent := Self;
      Top := 25 * (I + 1);
      OnClick := ClickBotones;
    end;
  end;

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita