Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
| procedure Tform_Main.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var CPos: TPoint; begin GetCursorPos(Cpos);
if Button = mbRight then begin; Button := mbLeft;
//Abfrage ob bestimmter Node gedrückt wurde und Reaktion
PopupMenu1.Popup(CPos.X, CPos.Y) end; end; |
Ich will bei, drücken der rechten Maustaste auf eine Komponente TTreeView, feststellen, ob was für ein Node selektiert ist und dementsprechend ein modifiziertes PopupMenu aufpopen lassen. Nur das Problem ist, wenn ich ein Node in der Kompo anklicke (mit der rechten Mt.), wird dieser nicht selektiert und dem entsprechend kann ich nicht auswerten, welcher selktiert wurde. Ich habe die Eigenschaft RightClickSelect schon auf TRUE gestellt.
Ich hab auch schon probiert bei klicken der rechten Maustaste der Komponente "vorzugaukeln", dass die linke Maustaste gedrückt wurde,
Quelltext
1: 2: 3:
| ... Button := mbLeft; ... |
doch auch das funktioniert nicht.
Bitte um Hilfe!