Hallo zusammen,
ich komme momentan leider nicht weiter. Ich möchte einen Drag&Drop innerhalb eies TreeView implementieren, bekomme aber jedesmal eine "Zugriffsverletzung bei Adresse ..."
Der inzwischen sehr einfache Code ist folgender:
Delphi-Quellcode:
procedure TFormMain.TreeViewSchuleDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
StatusBarMain.Panels[0].Text :=
IntToStr(TTreeView(Source).Selected.SelectedIndex) + '-' +
IntToStr(TTreeView(Sender).DropTarget.SelectedIndex);
{ ... }
end;
Imprinzip möchte ich damit erst mal nur die Knotenytpen von Ursprung und Ziel herausfinden.
Wo mag das Problem liegen?
Beste Grüße
Manfred