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