Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - drag and drop

Legeti - Mo 25.11.02 17:49
Titel: drag and drop

HI!
Ich möchte ein shape per drag&drop auf ein anderes Shape verschieben. Dabei soll das shape mit dem cursor mitwandern?!!!!

Wie geht das??? PS: Ich wußte es mal. Es geht !!!!!!!!

Danke!!!

Ex0rzist - Di 26.11.02 01:06

Hmm, ich würde das spontan mit dem OnMouseMove-Ereignis lösen.

Quelltext

1:
2:
3:
4:
5:

Procedure OnMouseMove...
begin
If Drag= True then 
 Shape.Position := Maus.Position
end;

Dabei ist Drag eine (globale) Boolesche Variable, die im OnMouseDown enabled und im OnMouseUp disabled wird.

Habs nicht getestet, müsste aber funktionieren.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!