Einzelnen Beitrag anzeigen

Delbor

Registriert seit: 8. Okt 2006
Ort: St.Gallen/Schweiz
1.186 Beiträge
 
Delphi 11 Alexandria
 
#1

Rechtsklick reagiert nicht

  Alt 26. Okt 2019, 14:46
Delphi-Version: 5
Hi zusammen

Wiedermal bin ich dabei, meinen OpenFileFrame zu erweitern. In einem Popup-Menü hab ich ein Menuitem 'Neu', dem ich in einem Untermenu zwei Subitems verpasst habe: 'Verzeichnis' und Textdatei'. in ersterem habe ich per Doppelklick im OI die Clickprozedur erzeugt und diese mit 'Leben' befüllt. Die Kruxist nur: die Prozedur wird nicht aufgerufen.
Delphi-Quellcode:
procedure TOpenFileFrame.VerzeichniserstellenClick(Sender: TObject);
  var LParentNode: TTreeNode; LRealName: String;
begin
    ShowMessage('FSelectedNode := ' + FSelectedNode.Text +sLineBreak+
                'LRealName := ' + LRealName);
  if FSelectedNode <> nil then
  begin

    LParentNode := FSelectedNode.Parent;
    LRealName := PNameRec(FSelectedNode.Data)^.RealName; //PNameRec(FSelectedNode.Data)^.RealName
    ShowMessage('FSelectedNode := ' + FSelectedNode.Text +sLineBreak+
                'LRealName := ' + LRealName);
// TDirectory.CreateDirectory();
  end;
end;
FSelectedNode sollte den Treenode enthalten, über dem ich mit der rechten Maustaste geklickt habe. Das Showmessage ist hier am Anfang eigentlich nur so was wie ein Lückenbüsser; ich habe auch schon mal erlebt, dass die erste Zeile einer Methode aus unerklärlichem Grund übersprungen wurde. Auf der Zeile mit dem FSelectedNode hab ich einen Haltepunkt gesetzt, der auch aktiv ist.
Trotzdem geschieht rein gar nichts, wenn ich einen Eintrag des Treeviews rechts anklicke.
Wieso nicht, bzw. wie oder wo könnte ich den Fehler finden?

Gruss
Delbor
Roger
Man muss und kann nicht alles wissen - man muss nur wissen, wo es steht.
Frei nach Albert Einstein
http://roase.ch
  Mit Zitat antworten Zitat