Treeview: Position(X,Y) des ausgewählten Items herausfinden.

AndreM · Beiträge: 122 Win2k, WinXP, Suse 10 D7 Ent

Hallo,

ich möchte die X und Y Position eines ausgewählten Items in einem TreeView auswerten um ein PopUpMenü relativ zum ausgewählten Item anzeigen zu lassen. Wie ich das PopUp an einer bestimmten Stelle des Bildschirm anzeigen lassen kann ist soweid klar, aber gibt es auch irgendwie die Möglichkeit beim OnClick Event die Bildschirmkoordinaten des ausgewählten Items zu bekommen?

Hoffe mal ihr hab verstanden was ich meine!

wwwdirk · Beiträge: 38 D6 Prof / D2005 Prof

Hi,

habe ähnliche Problematik mit dem Ereignis OnContextPopup und manuellem anzeigen des Popup-Menüs realisiert.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TfrmConfigMenu.trvMenuExplorerContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin
  if Assigned (trvMenuExplorer.Selected) then
    mnuContextTreeView.Popup (frmConfigMenu.Left + MousePos.X,
     frmConfigMenu.Top + MousePos.Y);
end;

Moderiert von Gausi: Code- durch Delphi-Tags ersetzt.

AndreM · Beiträge: 122 Win2k, WinXP, Suse 10 D7 Ent

Da sieht man mal wieder das man erst denken und dann posten sollte. 2 Minuten nachdem ich diesen Beitrag geschreiben habe hab ich selber eine Lösung für mein Problem gefunden!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TMainForm.TreeView_MenueMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var level : integer;
begin
  level := MainForm.TreeView_Menue.Items.Item[MainForm.TreeView_Menue.Selected.AbsoluteIndex].Level;
  if level = 1 then MainForm.TreeView_Menue.PopupMenu.Popup(X + 50,Y + 60);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme