TOpendialog Größe ändern

[_frank_]

sieht so aus als hätte ich das Problem gelöst:

Delphi-Quellcode:

  TMyOpenDialog = class(dialogs.TOpenDialog)
  protected
    function TaskModalDialog(DialogFunc: Pointer; var DialogData): Bool; override;
  end;

implementation

uses CommDlg; //TOpenFileName

function TMyOpenDialog.TaskModalDialog(DialogFunc: Pointer; var DialogData): Bool;
const
  OFN_ENABLESIZING = $00800000; 
begin
  TOpenFilename(Dialogdata).Flags:=TOpenFilename(Dialogdata).Flags or OFN_ENABLESIZING;
  result:=inherited TaskModalDialog(DialogFunc,DialogData);
end;

//Edit:
ich habe zwar jetzt das sizegrip zum manuellen resize (funktioniert super).
leider fehlt mir aber noch die Möglichkeit, den Dialog programmgesteuert zu resizen, ich hatte gehofft, wenn das flag aktiv ist, passen sich die Controls auch beim setzen der Größe an...

Gruß Frank