Hola a todos una vez más necesito de su ayuda para poder asignar un procedimiento a un evento por ej:
Código Delphi
[-]
type
TForm1 = class(TForm)
Button1: TButton;
procedure ImageEvent(Sender: TObject );
procedure Button1Click(Sender: TObject);
private
bImage : array of TImage;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ImageEvent(Sender: TObject);
begin
ShowMessage('asd');
end;
procedure Button1Click(Sender: TObject);
h : Integer;
begin
setLength(bImage, High(bImage)+2);
h := High(bImage);
bImage[h] := TImage.Create(nil);
with bImage[h] do begin
Width := 75;
Height := 45;
Name:= Format('B%d', [h]) ;
OnClick := ImageEvent;
OnMouseDown:= ImageEvent; Parent := Self;
Picture.Bitmap.LoadFromFile('c:/clubdelphi.bmp');
end;
end;
Como verán en el evento onClick puedo asignarle un procedimiento ahora para el evento OnMouseDown no y me pregunto si hay alguna forma. O de ultima capturar el evento cuando se clickiea en un objeto del tipo TImage. Saludos y gracias