Ordnerauswahl-Dialog

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