Bonsoir, Bonjour à toutes et à tous

Je voudrais pouvoir réaliser un Drap & Drop d'un TTreeview ver sun TRicheEdit.

Mais mon TricheEdit est sur une autre Form (créer dynamiquement)

Voici mon code du coter TreeView, l'évenement Drop

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFPrincipal.TreeViewBaseDragDrop(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var
  SourceNode, TargetNode: TTreeNode;
begin
  with TreeViewBase do
  begin
    TargetNode := GetNodeAt(X, Y);
    SourceNode := Selected;
 
    {On s'assure que le droppé existe}
    if (TargetNode = nil) then
    begin
      EndDrag(false);
      Exit;
    end;
  end;
end;
Voici mon evenement DragOver du TRicheEdit

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure TFTravail.RequeteDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source = FPrincipal.TreeViewBase;
end;
- Que faut-il faire pour récupérer le titre du node de mon treeview à l'interieur de mon richeedit ?