![]() |
Delphi-Version: 10.4 Sydney
Menüprobleme und SQLLite
Hi zusammen
Ich habe ein Popupmenue, das ich per Rechtsklick auf einen Pfad in einem Treeview anzeige:
Delphi-Quellcode:
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.
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; 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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz