Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Bummi,
8. Dez 2011
ich habe sogar noch eine VM wo der Kram installiert ist, man kann etwas damit hinmogeln, ob Du es so machen willst überlasse ich Dir ....
var
FDragNode:TTreeNode;//gehört in die Klasse oder zumindest initial genilt
procedure TForm2.Treeview1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Assigned(FDragNode) then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Bummi,
8. Dez 2011
Dann habe ich Dich falsch verstanden, oder wir machen es unterschiedlich ....
Ich habe mal Source und "Echse" angehängt
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Bummi,
7. Dez 2011
Irgendetwas in der Art ...
procedure TForm2.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
if Assigned(TreeView1.DropTarget) then TreeView1.DropTarget.Focused := true;
end;