Hi zusammen
Ich habe ein Popupmenue, das ich per Rechtsklick auf einen Pfad in einem Treeview anzeige:
Delphi-Quellcode:
procedure TOpenFileFrame.TVFilesExplorerMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var AnItem: TTreeNode; P: TPoint;
begin
if Button =(mbRight) then
begin
AnItem := TVFilesExplorer.GetNodeAt(X, Y);
FPopUpMode := true;
FPopUpModeList.add('TOpenFileFrame.TVFilesExplorerMouseDown: FpopUpMode := true');
if AnItem <> nil then
begin
FPopUpNode := AnItem;
FPopUpPath := IncludeTrailingPathDelimiter(PNameRec(AnItem.Data)^.RealName);
FPopUpPoint := Point(x,y);
end;
FSelectedNode := AnItem;
P := ClientToScreen(Point(x,y));
PopupMenu1.PopupComponent := TVFilesExplorer;
PopupMenu1.Popup(P.X, P.Y);
end;
end;
Dieses Popup verfügt aktuell über u.a. zwei Einträge im Hauptmenue mit
DB-Bezug: 'Erstellen' und 'Backup'. Der erste tat da seinen Dienst und erstellte eine
DB mit leeren Tabellen.
Nun änderte ich das Hauptmenue; statt diese beiden Einträge gibt/gab es nun ein Hauptmenue 'Datenbank' mit den oben erwähnten Punkten, nun aber als Untermenue.
Als nächstes änderte ich das
DB-Modell etwas ab: statt einer eigenen Files-Tabelle verfügt nun die Dokumententabelle über zwei zusätzliche Spalten zum Thema Files (Pfad + version). Daher sollte die
DB unter anderem Namen neu erstellt werden. Aber da tut sich trotz Haltepunkt am richtigen Ort nichts...
Der Objectinspector zeigt mir unter Ereignisse immer noch die per Doppelklick daselbst erstellte Prozedur, aber eine Verknüpfung scheint es nicht mehr zu geben.
Gerade eben habe ich versucht, die Verknüpfung zu erneuern (löschen des Ereignisses im
OI und neu auswählen), das hat aber nichts geändert...
Gruss
Delbor