Einzelnen Beitrag anzeigen

Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#5

Re: TOpendialog Größe ändern

  Alt 8. Jul 2007, 15:19
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
  Mit Zitat antworten Zitat