Hallo
Ich versuche eine Drag & Drop funktionalität in meine Applikation einzubauen. aber irgendwie scheint das noch nicht so ganz zu klappen.
Ziel ist ein Node einer TreeView in ein RichEdit komponente zu ziehen.
Wo liegt hier der Fehler? Irgendwie scheint das mit GetNodeAt(X,Y) nicht ganz zu funktionieren. Der wert ist immer nil.
Code:
procedure TForm1.JvRichEdit1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
var
drSource : TTreeView;
drSender : TJvRichEdit;
drNode : TTreeNode;
HT : THitTests;
begin
if (Sender is TJvRichEdit) and (Source is TTreeView) then
begin
with Sender as TJvRichEdit do
begin
drNode := (Source as TTreeView).GetNodeAt(X,Y);
JvRichEdit1.Text := drNode.Text
end;
end;