casa

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];
giù

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


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

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

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

Cosa fare?



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

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

fine;




Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra

Top.Mail.Ru Yandeks.Metrika













Memoria: 0.77 MB
Ora: 0.039 c
1-22045
Socol
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Запись в файл.


3-21969
Kozhanov
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Opzioni del driver OBDC


4-22463
Dmitry Alferev
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
FindResource не находит ресурс


14-22404
MJH
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Стоимость инета ( час)


1-22220
Кандыль
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Как запретить удалять какую-либо папку, не вися в трее?





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo