программное изменение размера диалоговых окон

[Сергей Горбач]

Подскажите, можно ли программно изменить размер и позицию на экране стандартного диалогового окна перед его выводом? Например, обычный размер OpenDialog мне кажется маленьким и я заранее хочу, чтобы оно открывалось с бОльшими размерами и не в центре экрана.

[ych_del]

Немного покурив win32.hlp, на выходе я получил вот такое вот:

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OD: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
  end;

var
  Form1: TForm1;

function AMsgProc(code, wParam, lParam: Integer): LRESULT; stdcall;

implementation

{$R *.dfm}

const OD_CAPTION_FIND = '~myOpenDialog';
      OD_CAPTION_DEF  = 'Открыть';

var OD_WND: Cardinal;
    H: HHOOK;

//-- Создание формы - ставим хук на диалоговые окна, менюшки и прочее ----------
procedure TForm1.FormCreate(Sender: TObject);
begin
   H := SetWindowsHookEx(WH_SYSMSGFILTER, @AMsgProc, HInstance, 0);
   if H = 0 then ShowMessage(SysErrorMessage(GetLastError));
end;
//-- Закрытие формы - снимаем хук ----------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   UnhookWindowsHookEx(H);
end;
//-- Вызов диалога открыртия файла ---------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
   OD_WND := 0; // это пригодится ниже
   OD.Title := OD_CAPTION_FIND; // ставим диалогу название, по которому будем его искать
   OD.Execute;
end;

function AMsgProc(code, wParam, lParam: Integer): LRESULT;
var L, T, W, H: Integer; // left, top, width, height
//    P: PChar;
//    M: TMsg;
begin
   if (code = MSGF_DIALOGBOX)and(OD_WND = 0) // если не прописать второе условие,
   then begin                                // будут очень интересные последствия
      {
      M := PMsg(lParam)^;
      OD_WND := M.hwnd;
      P := StrAlloc(255);
      GetClassName(OD_WND, P, 255);
      GetWindowText(OD_WND, P, 255);
      Form1.Caption := StrPas(P);
      StrDispose(P);
      if not SetWindowText(OD_WND, OD_CAPTION) then Form1.Caption := SysErrorMessage(GetLastError);
      }
      OD_WND := FindWindow(nil, OD_CAPTION_FIND); // находим окно диалога откытия файла
      if OD_WND <> 0 then begin
          L := 0; T := 0;
          W := 1000; H := 400;
          SetWindowText(OD_WND, OD_CAPTION_DEF); // устанавливаем ему нормальный заголовок
          SetWindowPos(OD_WND, HWND_TOP, L, T, W, H, SWP_SHOWWINDOW); // ставим в нужную позицию
      end;
      Result := 0;
   end else
      Result := CallNextHookEx(H, code, wParam, lParam);
end;

end.

О чем тут речь?
Мы ставим ловушку на системные сообщения (см. FormCreate). Когда появляется диалоговое окно (if code = MSGF_DIALOGBOX) - ловушка срабатывает. Мы получаем хэндл этого окна (ищем по заведомо идиотскому названию, которое назначили перед показом диалога), и немного извращаемся над ним: во-первых, ставим нормальное название, во-вторых - выставляем в нужную позицию.

Вот, как-то примерно так.

В процедуре закомментирован кусок кода. По хорошему, надо было идти именно по тому пути, который я закомментил, не доделав. Но, так как всё-таки на работе надо заниматься работой, я пошел по пути наименьшего сопротивления
Недостаток такого метода в том, что окошко диалога заметно мигает при перемещении.

Вот тут: http://www.ych-group.ru/232/1231/

[volvo877]

Например, обычный размер OpenDialog мне кажется маленьким и я заранее хочу, чтобы оно открывалось с бОльшими размерами и не в центре экрана.

Напиши наследника от TOpenDialog (или Interceptor-а), перегрузи ему DoShow, и в ней делай все, что тебе заблагорассудится. Изменяй размеры, позицию, и т.д.

Пример я приводил здесь

[Сергей Горбач]

Сообщение от volvo877

Напиши наследника от TOpenDialog (или Interceptor-а), перегрузи ему DoShow, и в ней делай все, что тебе заблагорассудится. Изменяй размеры, позицию, и т.д.

Пример я приводил здесь

Да, при таком исполнении кода размер и позиция окна меняется корректно, но элементы имеющиеся на форме продолжают иметь старые размеры. Их размеры остаются неизменными же даже при изменении размера при помощи мыши. Как привязать изменение их размеров к размеру формы? Заранее благодарен.