At fange dobbeltklik eventet fra en TTreeView

Hvorfor bruger du ikke bare TTreeViewets OnChange event?

Bemærk, at hver TTreeNode har en .Data tingest hvorpå du kan koble information. I nedenstående eksempel har jeg lavet en TSearchItemClass (som man naturligvis skal huske at fjerne igen) der indeholder SelStart og SelLength -> som direkte kan bruges i en TMemo.

Desuden har jeg en fOtherFormMemo der er en pointer til en TMemo-instans i den anden form. Grunden til jeg ikke har frmOtherForm.Memo1... er at det er en usik at de to forme kender hinanden respektivt. Synes altid det giver problemer, så jeg ændrer altid constructoren på, her søgeformen, så den kan få oplysningerne derfra:

TSearchForm = class
  TreeView1 : TTreeView;
  procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
private
  fMemo : TMemo;
public
  constructor Create(aSender : TComponent; aMemo : TMemo); reintroduce;
end;

constructor TSearchForm.Create(aSender : TComponent; aMemo : TMemo);
begin
  inherited Create(aSender);
  aMemo := fMemo;
end;

procedure TSearchForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  SearchItem : TSearchItemClass; // Hjemmelavet klasse der fortæller hvor det søgte er
begin
  if assigned(Node) then begin
    SearchItem := TSearchItemClass(Node.Data);
    fMemo.SelStart := SearchItem.SelStart; // Memo i anden form
    fMemo.SelLength := SearchItem.SelLength;
  end;
end;

På den måde så er det kun TTekstForm (eller hvad man skal kalde den), der kender TSearchForm - og det har jeg generelt fundet det bedste løsning.

Skal lige bytte disse to rundt (som her):
  fMemo := aMemo

Jeg har læst spørgsmålet en gang til og undrer mig list (over mit forrige svar og om du ikke kender en TTreeView's Selected property). Jeg kører videre med mit eksempel hvor jeg har koblet et objekt på hver TTreeNode's .Data property:

procedure TfrmMain.TreeView1DblClick(Sender: TObject);
  SearchItem : TSearchItemClass;
begin
  SearchItem := nil;
  with (Sender as TTreeView) do begin
    if assigned(Selected) and assigned(Selected.Data) then // bruger Short boolean evaluation
      SearchItem := Selected.Data;

  if assigned(SearchItem) then begin
    // Kald den anden form med de informationer der er i SearchItem-objektet.
  end;
end;

// For at illustrere hvordan man let kan sørge for at der ryddes op igen
procedure TfrmMain.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
  if assigned(Node.Data) then
    TSearchItemClass(Node.Data).Free;
  Node.Data := nil; // Egentlig ikke nødvendig
end;

Jeg har fundet det : i OnCollapsing eventet skal AllowCollapse sættes til False.

hrc <<< Tak for hjælpen med Selected - den er meget nemmere at bruge end koordinaterne af musemarkøren, men jeg tager halvdelen af point'ene selv for AllowCollapse :)