Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Menüprobleme und SQLLite (https://www.delphipraxis.net/209331-menueprobleme-und-sqllite.html)

Delbor 23. Nov 2021 15:20

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:
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz