Hi Uwe Raabe
Den Threenode im OpenfileFrame, respektive im TVFilesExplorer klicke ich rechts an und im OnContextPopup zeige ich das Popup an:
Delphi-Quellcode:
procedure TOpenFileFrame.TVFilesExplorerContextPopup(Sender: TObject;
MousePos: TPoint; var Handled: Boolean);
var P: TPoint; X,Y: integer;
begin
FReportlist.Add('----------------');
FReportlist.Add('prozedur TVFilesExplorerContextPopup');
FReportlist.Add('Button =(mbRight)-Block');
X := MousePos.X;
Y := MousePos.Y;
P := ClientToScreen(Point(x,y));
PopupMenu1.Popup(P.X, P.Y);
end;
Die einzelnen Einträge in diesem PopUp jedoch klicke ich mit der linken Maustaste an - im Falle des Wurzelverzeichnisses und des Zurücksetzens klappt das einwandfrei.
Ursprünglich waren 'Verzeichnis' und 'Textdatei' Untermenüs von 'Neu' - ich hab sie verschoben, weil ich erst vermutete, ich müsste dem Popup noch irgendwie mitteilen, dass es sich aktuell um Submenues handelt. Das hat nichts gebracht.
Auch den Namen löschen und Delphi einen neuen erzeugen lassen, war Fehlanzeige.
Gruss
Delbor