Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CalganX,
24. Jul 2004
Hi,
so... Habe es gerade selber lösen können. :firejump:
Für die, die an der Lösung interessiert sind:
procedure TfrmMain.vstDataDragOver(Sender: TBaseVirtualTree;
Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint;
Mode: TDropMode; var Effect: Integer; var Accept: Boolean);
var
pUsedNode, pTargetNode: PVirtualNode;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CalganX,
23. Jul 2004
Hi,
ich habe inzwischen die Grundlagen des Drag'n'Drop's beim VirtualStringTree realisieren können. Sprich die Items lassen sich bewegen.
Dazu habe ich (aus der Doku) folgendes im OnDragDrop-Eregnis stehen:
procedure TfrmMain.vstDataDragDrop(Sender: TBaseVirtualTree;
Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
Shift: TShiftState; Pt: TPoint; var Effect: Integer;...