[crazyman]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

... var MyImage: Timage; ... procedure TForm1.FormCreate(Sender: TObject); begin MyImage:= TImage.Create(Form1); MyImage.Parent:=form1.Panel2;    with MyImage do begin      top:=316;      left:=40;      height:=164;      width:=302;      myimage.Proportional:=true;      myimage.BringToFront;      myimage.Stretch:=true;    end; end;

Подскажите как правильно создать событие для созданного объекта, что и где прописать.
Делал так добавил Image назвал его MyImage, создал события MyImageMouseDown,MyImageMouseMove, MyImageMouseUp, удалил Image, т.к. MyImage создается програмно,но события перестают работать.

[crazyman]

Сообщение от crazyman

Код:

Подскажите как правильно создать событие для созданного объекта, что и где прописать.
Делал так добавил Image назвал его MyImage, создал события MyImageMouseDown,MyImageMouseMove, MyImageMouseUp, удалил Image, т.к. MyImage создается програмно,но события перестают работать.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

... var MyImage: Timage; ... procedure TForm1.FormCreate(Sender: TObject); begin MyImage:= TImage.Create(Form1); MyImage.Parent:=form1.Panel2; MyImage.OnMouseDown:=MyImageMouseDown; MyImage.OnMouseUp:=MyImageMouseUp; MyImage.OnMouseMove:=MyImageMouseMove;    with MyImage do begin      top:=316;      left:=40;      height:=164;      width:=302;      myimage.Proportional:=true;      myimage.BringToFront;      myimage.Stretch:=true;    end; end;

Спасибо разобрался!