Nach Hause

Forum: "Haupt";
Durchsuchen Sie die gesamte Website: delphimaster.net;
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];



Nach unten

Drag & Drop-Komponente


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

Meine Frage ist:
Ich möchte eine Komponente erstellen, die in der Form „gezogen“ werden kann.
Als solche Komponente beschlossen, VirtualTreeView zu verwenden
Ich verwende drei Ereignisse zum Ziehen: OnMouseDown, OnMouseMove, OnMouseUp.

Als ich CheckListBox als ziehbare Komponente verwendet habe, rief die SetCapture-Funktion (self.Handle) auf, damit die Komponente nicht fehlschlug, und alles funktionierte.
Wenn Sie nach dem Aufruf von SetCapture (self.Handle) zu VirtualTreeView wechseln, wird die Komponente nicht mehr bewegt. Wenn Sie SetCapture (self.Handle) nicht aufrufen, funktioniert alles, nur die Komponente wird beim Ziehen vom Zeiger "gelöscht".

Was zu tun ist?



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

Versuchen Sie das Einfügen in den OnMouseDown-Handler:
var Steuerung: TControl; beginnen versuche es Kontrolle: = Absender als TControl; ReleaseCapture; Control.Perform (WM_SYSCOMMAND, $ F012, 0); endlich ende
end;





Forum: "Haupt";
Durchsuchen Sie die gesamte Website: delphimaster.net;
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];



nach oben

Nach Hause

Top.Mail.Ru Yandeks.Metrika













Speicher: 0.75 MB
Zeit: 0.028 c
4-22487
Rad
2001-11-05 00:40
2002.01.08
Erstellen Sie ein Makro in Excel


14-22326
Mcsimm
2001-11-04 11:35
2002.01.08
Jemand wollte das Gehirn strecken? Was sind die Optionen für den Algorithmus?


1-22167
Kunst
2001-12-15 20:56
2002.01.08
So ist das Problem !!!


3-21938
Gordon
2001-12-04 18:19
2002.01.08
So richten Sie IB5 mit Win2000 Server ein


6-22308
Igor
2001-10-14 09:44
2002.01.08
Datenaustausch zwischen Client und Server in Delphi





Afrikanisch albanisch Arabic Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch griechisch haitian Creole hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch rumänisch Russisch serbisch Slovak Slowenisch Spanisch swahili Swedish Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch