Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.015 c
7-36872
Rentgen
2003-10-03 07:31
2003.12.12
Компонент HotKey.


14-36843
Мазут Береговой
2003-11-19 10:56
2003.12.12
На выходные пошел в парк, в горы погулять.


1-36666
Great DAN
2003-11-30 00:40
2003.12.12
Как разделить форму?


1-36705
Artog
2003-12-02 15:17
2003.12.12
динамический массив


8-36770
JTAG
2003-08-15 20:58
2003.12.12
О фонтах