Hallo Boris,<\/p>\n
dein Vorschlag mit DragMode = dmManual funktioniert.
\nZu beachten ist noch der Parameter FALSE in BeginDrag.
\nDer Drag-Vorgang wird dann erst gestartet, wenn die Maus
\nnoch etwas bewegt wird.
\n[code lang=”delphi”]procedure TViewWindowPositionen.CopyTreeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);<\/p>\n
var
\n bDragAllowed : Boolean;
\n bIsHierarchie: Boolean;
\n sKE : String;<\/p>\n
Node : TTreeDFNode;<\/p>\n
begin
\n inherited;<\/p>\n
if Button = mbLeft then begin
\n Node:= CopyTree.GetNodeAt(X, Y);<\/p>\n
if Node <> nil then begin
\n bDragAllowed:= FALSE;<\/p>\n
if (Node.sType = NODE_LEISTUNG) or (Node.sType = NODE_SELEKT_PFLANZE) then begin
\n bDragAllowed:= TRUE;<\/p>\n
end else if Node.sType = NODE_POSITION then begin
\n GetPosTypFromID(Node.sID, sKE, bIsHierarchie);<\/p>\n
bDragAllowed:= (sKe <> ‘PL’) and (sKE <> ‘PS’);
\n end;<\/p>\n
if bDragAllowed then begin
\n (Sender as TControl).BeginDrag(FALSE);
\n CopyTree.DraggedNode:= Node;
\n end;
\n end;
\n end;
\nend;[\/code]<\/p>\n
[tags]Delphi, Components, TreeView[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
Hallo Boris, dein Vorschlag mit DragMode = dmManual funktioniert. Zu beachten ist noch der Parameter FALSE in BeginDrag. Der Drag-Vorgang wird dann erst…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[90,75,95],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1D","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/101"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=101"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/101\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=101"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=101"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=101"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}