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]

[Bummi]

wparam und lparam sind vertauscht

Delphi-Quellcode:

function TPathDialog.setOKButton(enabled:Boolean):Boolean;
begin
 result:=false;
 if (FHandle<>0) then
 begin
  result:=true;
  if enabled then
   SendMessage(FHandle,BFFM_ENABLEOK,0,1)
  else
   SendMessage(FHandle,BFFM_ENABLEOK,0,0);
 end;
end;

[DeddyH]

Achwas

[Bummi]

@DeddyH

sorry, ich sollte doch öfters mal schauen was Du oben schon so alles gepostet hast ...

[DeddyH]

Ego te absolvo

[Bummi]

@DeddyH

pater, gratias tibi ago.

[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.

[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.

[Luckie]

Zitat von DeddyH:

Ego te absolvo

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