Главная страница
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.02 c
4-36887
zdn
2003-10-19 11:31
2003.12.12
Работа с файлами


3-36546
Shirson
2003-11-19 11:14
2003.12.12
Странное поведение Query


14-36808
Style
2003-11-20 11:43
2003.12.12
Народ помогите Чат проверить..


3-36551
Sodven
2003-11-20 21:09
2003.12.12
XML и БД


1-36671
Паша_Кимры
2003-11-30 13:37
2003.12.12
Технология СОМ