Ordnerauswahl-Dialog

[Bummi]

@DeddyH

pater, gratias tibi ago.

[Willie1]

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?

[Bummi]

    (Sender as TPathDialog).setOKButton((Path <> '') and (AnsiLowerCase(Path[1]) <> 'c'));
nachdem Du function TPathDialog.setOKButton(enabled:Boolean):Boolean;

repariert hast, sonst kann ein Benutzer nach einer "falschen" Wahl gar keine richtige mehr treffen.

[Willie1]

Zitat:

nachdem Du function TPathDialog.setOKButton(enabled:Boolean):Boolean;

repariert hast, sonst kann ein Benutzer nach einer "falschen" Wahl gar keine richtige mehr treffen.

Doch es funktioniert, probier es aus.

[Bummi]

@Willie1

Ok, funktioniert, das Shellobjekt biegt es selbst wieder richtig hin ...
Deshalb blieb der Bug wahrscheinlich so lange unentdeckt .....

[Luckie]

Zitat von DeddyH:

Ego te absolvo

Ich erteile dir Absolution. (?) Also. Ich entschuldige dich. (?)

[Willie1]

die Komponente ist ja schon alt, wundert mich, dass es noch niemand aufgefallen ist.
Ich muss jetzt meine Augen schonen, melde mich später noch mal.
W.

[Willie1]

Hallo Leute, ich will das Thema beenden. Ich habe, wie oben gepostet, eine Lösung gefunden. Sie tut, was ich will, was ich mehr.

Tschüss
Willie