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

в Статьи

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