Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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;



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

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

Наверх















Память: 0.81 MB
Время: 0.039 c
14-22353
Merlin
2001-11-02 10:13
2002.01.08
Я в шоке


1-22052
avr555
2001-12-17 19:54
2002.01.08
Перетаскиваемый компонент


14-22394
Vitaly
2001-11-09 19:51
2002.01.08
День МЕНТА завтра....


1-22144
shornik
2001-12-20 11:36
2002.01.08
Мастера !!!! Пожалуйста помогите с проблемой !


1-22107
Alexander
2001-12-19 01:45
2002.01.08
Как при запуске программы сразу показать поверх главной формы другую?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский