Ver Mensaje Individual
  #2  
Antiguo 10-06-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Simplemente tienes que declarar y asignar el evento manualmente:

Código:
interface

type
  TForm1 = class(TForm)
  private
    procedure ImagenClick(Sender: TObject);
  end;

implementation

procedure TForm1.ImagenClick(Sender: TObject);
begin
  { Aquí el código que quieras que se ejecute al hacer click }
end;
Después, cuando crees la imagen en código le asignas el evento:
Código:
TuImagen.OnClick := ImagenClick;
// Saludos
Responder Con Cita