Crear evento a un componente creado en ejecución

[[enecumene]]

Hola compañeros, vengo con esta pequeña duda, estoy creando componentes en tiempo de ejecución, ¿existe alguna forma de crearle un evento como OnClick y llamarlo?.

Saludos.

EDITO: se me olvidó el código:

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;
   end;
   Width := 200;
   Height := 200;
end;

[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.

[[enecumene]]

Intenté este otro código aún no me funciona:

Código Delphi [-]
for I := 0 to FMain.ComponentCount - 1 do begin
//destruye los componentes creados
if FMain.Components[i] is TFrame1 then
    TFrame1(FMain.Components[i]).Destroy;
//

Saludos.

[[Lepe]]

Si están dentro del Scrollbox, creo que seria Scrollbox.Controls[i].Free (obviamente el bucle es sobre scrollbox.controls.count -1)

Destroy se usa cuando diseñas el componente, pero no se debe llamar nunca, hay que usar Free.

Saludos

[[enecumene]]

¿Sin importar que están dentro a través del parent?.

[[enecumene]]

Bueno haciendo la modificación con tu consejo Lepe:

Código Delphi [-]
var I: Integer;
begin
for I := 0 to FMain.ScrollBox1.ControlCount do begin
//destruye los componentes creados
if FMain.ScrollBox1.Controls[i] is TFrame then
    TFrame(FMain.ScrollBox1.Controls[i]).Free;
//

Error:

---------------------------
Debugger Exception Notification
---------------------------
Project Vellonera.exe raised exception class EListError with message 'List index out of bounds (3)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

En el Scrollbox tenía seis frame y sólo destruyó 3 intercalados y no completó el código.

Saludos.

[[Delphius]]

Empezado por enecumene

Bueno haciendo la modificación con tu consejo Lepe:
Código Delphi [-]var I: Integer; begin for I := 0 to FMain.ScrollBox1.ControlCount do begin //destruye los componentes creados if FMain.ScrollBox1.Controls[i] is TFrame then TFrame(FMain.ScrollBox1.Controls[i]).Free; //


Error:


En el Scrollbox tenía seis frame y sólo destruyó 3 intercalados y no completó el código.

Saludos.

Hola enecumene, Por la descripción del error y el código intuyo que se debe a que te faltó restar 1 a ControlCount.

Saludos,

[rgstuamigo]

Hola enecumene prueba con esto:

Código Delphi [-]
for I := 0 to FMain.ComponentCount - 1 do begin
//destruye los componentes creados
if FMain.Components[i] is TFrame1 then
    TFrame1(FMain.Components[i]).Free;
//

Saludos....

[[enecumene]]

Gracias rgstuamigo, la solución de Delphius me resolvió el problema, de todos modos te agradezco tu ayuda

Saludos.

[[enecumene]]

Ahora se me presenta otra duda, en los frames que se crean y se eliminan en tiempo de ejecución tienen una imagen con su propiedad visible en False, que sólo se presentará al darle click a otra imagen, ¿qué sucede?, al darle click a las demás imágenes se presenta esa imagen sin lograr que las demás vuelvan al estado de visibilidad a False. Para mejor apreciación adjunto una imagen:



como pueden ver las figuras 1, 2 y 3, al dar click una imagen aparece la figura 1, pero al dar la siguiente imagen aparece la figura 2 pero no desaparece la figura1 y así sucesivamente, como se trata de un ciclo y hay dos TImage en el frame no sabría cómo llegarle al asunto.

Saludos.

[[Lepe]]

Al final vas a necesitar una lista. Es como un Listbox, que al poner su propiedad Seletected := 3, deselecciona el anterior y selecciona el nuevo.

Puedes heredar de un TObjectList e implementarlo, te será fácil y muy cómodo de mantener el código. Podrías tener una variable global que indique el elemento seleccionado, pero con el tiempo se te complicará.

La lista, también te permitiría liberar todos los componentes sin tener que recorrer los controles del scrollbox.

Busca en el foro, hay mucho sobre TObjectList, así como en la propia ayuda de windows.

Saludos

[[enecumene]]

Muchas gracias Lepe, ahora mismo lo verifico

Saludos.