Witam!
Wiem, że na forum jest dużo postów na ten temat, ale chociaż próbowałem się do nich zastosować do i tak robię coś źle. Tworzę dynamicznie obiekt typu TImage i chcę do niego podpiąć zdarzenie OnClick. Oto kod:
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
obraz:TImage;
procedure klikamy(sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.klikamy(sender: TObject);
begin
showmessage('Klik');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
obraz:=TImage.Create(Form1);
obraz.OnClick:=klikamy;
obraz.Picture.Bitmap.LoadFromFile('plik.bmp');
canvas.Draw(100,100,obraz.picture.bitmap);
end;
end.
Czy ktoś mógłby mi pomóc i powiedzieć dlaczego OnClick nie działa? Z góry dzięki i przepraszam za fatygę.