Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Перетаскиваемый компонент   Найти похожие ветки 

 
avr555 ©   (2001-12-17 19:54) [0]

У меня такой вопрос:
Я хочу сделать компонент, который можно было бы "таскать" по форме.
В качестве такого компонента решил использовать VirtualTreeView
Для перетаскивания использую три события: OnMouseDown, OnMouseMove, OnMouseUp.

Когда я в качестве перетаскиваемого компонента использовал CheckListBox, то для того, чтобы компонент не срывался, вызывал функцию SetCapture(self.Handle) и все работало.
А при переходе на VirtualTreeView после вызова SetCapture(self.Handle) компонент перестает передвигаться. Если не вызывать SetCapture(self.Handle), то все работает, только компонент при перетаскивании "срывается" с указателя.

Что делать?


 
DK ©   (2001-12-19 02:16) [1]

Попробуй в обработчик OnMouseDown вставить:
var
Control: TControl;
begin
try
Control := Sender as TControl;
ReleaseCapture;
Control.Perform(WM_SYSCOMMAND, $F012, 0);
finally
end;

end;



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
1-22148
Delphimun
2001-12-20 12:10
2002.01.08
Как послать системе сообщение, что нажата клавиша?


1-22231
Leviathan
2001-12-16 22:16
2002.01.08
BitBlt...


3-21926
Oleon
2001-12-04 15:14
2002.01.08
Создание таблицы из Delphi.


6-22313
SB
2001-10-01 15:05
2002.01.08
Помогите сетевому недоучке! Пожайлуста


1-22048
-==Yurka==-
2001-12-18 18:50
2002.01.08
Проблема с Memo