Hallo DeddyH
bei mir klappt es so richtig! (Bei deiner Lösung nicht)
Delphi-Quellcode:
procedure TForm1.DoOnSelect(Sender: TObject; Path: String);
begin
if (Path <> '') and (AnsiLowerCase(Path[1]) <> 'c') then
(Sender as TPathDialog).setOKButton(false);
end;
Diese Routine darf nur mit (false) durchöaufen werden. Hat du Windows 7 - könnte es einen Unterschied zwischen Vista und Win 7 geben?