Пара вопросов по размеру и положению окна

← →
F... (2004-02-20 04:56) [0]

Скажите пожалуйста, как можно определить следующее:
1) Максимизировано ли окно?
2) Если максимизировано, то какие размеры и положение окна в нормальном состоянии (после восстановления)?

И ещё как программно максимизировать окно?

← →
Defunct © (2004-02-20 05:53) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := Format(Размеры окна... ширина: %D, высота: %D",[Width,Height]);

ShowMessage("Разворачиваем на весь экран");
WindowState := wsMaximized;

ShowMessage("Сворачиваем... ");
WindowState := wsMinimized;

ShowMessage("Восстанавливаем исходный размер");
WindowState := wsNormal;

end;

> F... (20.02.04 04:56)

> 1) Максимизировано ли окно?
> 2) Если максимизировано, то какие размеры и положение окна в
> нормальном состоянии (после восстановления)?
GetWindowPlacement отвечает на оба вопроса сразу.

> как программно максимизировать окно?
SetWindowPlacement или WM_SYSCOMMAND c SC_MAXIMIZE

Пара вопросов по размеру и положению окна Найти похожие ветки