Ordnerauswahl-Dialog

[DeddyH]

Ich habe das jetzt unter Delphi 2007 ausprobiert, mit meiner Änderung funktioniert es wie gedacht. Wann rufst Du die Methode denn auf?

[edit] Hier noch mein Testcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PD: TPathDialog;
begin
  PD := TPathDialog.Create(nil);
  try
    PD.OnSelect := DoOnSelect;
    PD.Execute;
  finally
    PD.Free;
  end;
end;

procedure TForm1.DoOnSelect(Sender: TObject; Path: String);
begin
  if Path <> '' then
    (Sender as TPathDialog).setOKButton(AnsiLowerCase(Path[1]) <> 'c');
end;

Der Button wird enabled, sobald ich ein Verzeichnis außerhalb von 'C:' auswähle.[/edit]