Crear evento a un componente creado en ejecución

[roman]

Pues sí claro,

Código Delphi [-]
TuComponente.OnClick := ComponenteClick;

donde ComponenteClick es un método que tú defines explícitamente:

Código Delphi [-]
TForm1 = class(TForm)
private
  procedure ComponentClick(Sender: TObject);
end;

// Saludos

[[enecumene]]

Gracias Roman, justamente estaba probando este método que comentas, en unos minutos te comento como me va.

Saludos.

[[enecumene]]

Bueno volví rápido, me entró una duda, por ejemplo, en este pedazo de código donde se crea el componente TImage bajo TPanel1:

Código Delphi [-]
constructor TPanel1.Create(aOwner: TComponent);
begin
   inherited;
   with TLabel.Create(aOwner) do
   begin
      Parent := Self;
      Caption := ID;
      Font.Name := 'Tahoma';
      Font.Size := 8;
      Font.Color := clBlack;
      Top := 0;
   end;
   with TLabel.Create(aOwner) do
   begin
      Parent := Self;
      Caption := AUTOR;
      Top := 30;
   end;
   with TImage.Create(aOwner) do
   begin
      Parent := Self;
      Align := alClient;
      Picture.LoadFromFile(FOTO);
      Stretch := True;
      Onclick := Click;
   end;
   Width := 200;
   Height := 200;
end;

¿El procedure lo creo fuera del constructor o dentro o entre begin...end del Timage?, disculpa mi ignorancia.

Saludos.

[roman]

Recuerda que Delphi no es un lenguaje de esos interpretados que hay por ahí No puedes crear funciones durante la ejecución. El evento debes declararlo como te comenté anteriormente, en la declaración del formulario, e implementarlo en la zona interface.

// Saludos

[[enecumene]]

Gracias Roman, pero ahora tengo otro problema, dentro del panel se crean dos labels (TLabel), y ahora no logro llamar el caption de uno específico :

Código Delphi [-]
procedure TFMain.Click(Sender: TObject);
begin
  Panel2.Caption := ???;
end;

Saludos.

[roman]

¡Oh! Disculpa. No había visto que está definiendo tu propio componente. El método debes definirlo en la declaración de TPanel1 e implementarlo en la zona implementation de ese mismo componente:

Código Delphi [-]
interface

type
  TPanel1 = class(TPanel)
  private
    procedure Click(Sender: TObject)
  end;

implementation

procedure TPanel1.Click(Sender: TObject)

end.

// Saludos

[[enecumene]]

Disculpa roman, como estoy creando un Timage dentro del TPanel que lo cubre por completo, ¿al dar click funciona el procedimiento aunque la imagen esté encima? .

Saludos.