Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

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


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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.03 c
1-22128           vinni2000             2001-12-18 17:17  2002.01.08  
RichEdit!!!!!!!!!!!!!!!!!


3-21938           gordon                2001-12-04 18:19  2002.01.08  
Как настроить работу IB5 c Win2000 Server


3-21951           olban                 2001-12-05 11:07  2002.01.08  
Испоьзование QuantumGrid


1-22260           Alex_Sudakov          2001-12-17 15:28  2002.01.08  
Подскажите, в D6 юнит DsgnIntf есть?


4-22485           Delphi5.01            2001-11-05 06:56  2002.01.08  
Как можно загрузить свой курсор в дельфи!