![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Код:
... 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 создается програмно,но события перестают работать. |
#2
|
|||
|
|||
![]() Цитата:
Код:
... 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; |