Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: TreeNode markieren

    Delphi
    by BluesKid, 5. Mai 2004
  procedure TForm1.TreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
  if (Button = mbRight) then begin
  if (htOnItem in (sender as TTreeview).GetHitTestInfoAt(x,y)) then begin
  (sender as TTreeview).Selected := (sender as TTreeview).GetNodeAt(x,y);
  end;
  end;
  end;