Ja ich habe mal wieder den sprichwörtlichen Wald nicht gesehen
Delphi-Quellcode:
procedure TNewGetFile.VirtualExplorerTreeviewFocusChanged(
Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
var
OldCursor: TCursor;
begin
OldCursor := Screen.Cursor;
Screen.Cursor := crHourglass;
try
BuEject.Caption := VirtualExplorerTreeview.SelectedPath;
VirtualShellAutoComplete.CurrentDir := VirtualExplorerTreeview.SelectedPath;
VirtualShellAutoComplete.Refresh;
LB.Items := VirtualShellAutoComplete.Strings;
finally
Screen.Cursor := OldCursor
end
end;
vielleicht hilft das mal jemand anderem