Drag & Drop

[day]

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;

[Keldorn]

Hab grad kein delphi an, aber die wahrschenilichkeit, da siche bei den x,y Koordinaten des richedits (du bist im dragover beim richedit) eine treenode befindet ist auch nahe 0 ;). probiers mal statt getitme mit der selected-eigenschaft der treeview.

Mfg Frank

[day]

Hallo
Danke für die Antwort. Jetzt funktioniert es.