TreeView ... itemclick nicht vorhanden?!

[marius86]

Hi!

habs geschafft:

Delphi-Quellcode:

procedure TMainWindow.folderClick(Sender: TObject);
var
  Item: TTreeNode;
  ScreenPt, ClientPt: TPoint;
  HT: THitTests;
  dir: String;
begin
Item := folder.Selected;
// dir := '';
while (Item <> nil) do
begin
   dir := dir + '' + Item.Text;
   Item := Item.Parent;
   dir :=  AnsiReplaceStr(dir, 'NuMail', '');
   ordneranzeige.Caption := dir;
   Aktualisieren(Folder.Selected);
end;

end;