Ordnerauswahl-Dialog

[Willie1]

Hallo Leute,
ich will einen Ordnerauswahl-Dialog bauen, bei dem der Ok-Button disabled wird, wenn der/die Anwender/in einen leeren Ordner auswählen will.
Dazu benutze ich die Komponente PathDialog von Florian Bömers. Diese funktioniert ansonsten gut wie SelectDirectory hat aber zusätzlich die Funktion setOkButton(enabled: Boolean)

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,1,0)
  else
   SendMessage(FHandle,BFFM_ENABLEOK,0,0);
 end;
end;

Ausgelöst wird diese Routine im Event OnSelect - ein Ordner wird angeklickt.

Ich muss aber feststellen, sobald ich setOkButton einbaue, ist der Ok-Button immer disabled.

Gruß Willie

Dann noch ein Hinweis, ich hatte es früher hier schonmal erwähnt. Durch einen Augenerkrankung kann ich nur mit einen Lupensoftware programmieren. Ich bitte um Nachsicht und Rücksicht. Danke.