Текущий архив: 2003.12.12;
Скачать: CL | DM;

Вниз

Drag&Drop   Найти похожие ветки 

← →
Fast   (2003-12-01 23:25) [0]

Уважаемые мастера! Как правильно организовать перемещение мышкой Controlа по форме. Совсем ничего не получается. А было так:

procedure TForm1.Button1StartDrag(Sender: TObject; var DragObject: TDragObject);
begin
Label1.Caption := IntToStr(Button1.Left);
Label2.Caption := IntToStr(Button1.Top);
end;

procedure TForm1.Button1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Sender = Source);
end;

procedure TForm1.Button1DragDrop(Sender, Source: TObject; X,Y: Integer);
begin
with (Source as TButton) do begin
Left := X;
Top := Y;
Label1.Caption := IntToStr(Left);
Label2.Caption := IntToStr(Top);
end;
end;

Все перемещение происходит только в пределах клиентской области кнопки. Заранее благодарен за подробности.

---

← →
Maxud ©   (2003-12-01 23:52) [1]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988624081&n=17

---

← →
MBo ©   (2003-12-02 06:39) [2]

в Статьи

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c