[crazyman]

Код:

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

Код:

...
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 создается програмно,но события перестают работать.

Код:

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

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