узнать размеры амксимизированного окна

← →
d_oleg (2004-03-01 13:24) [0]

Подскажите пожалуйста, как узать размеры максимизированной формы, т.е. те размеры, в которые она будет восстановлена.

← →
icebeerg (2004-03-01 14:36) [1]

А ты восстанови ее, замерь и сразу же опять, миксимизируй?

← →
YurikGl (2004-03-01 14:38) [2]

А не проще использовать глобальный объект (Screen по моему) и замерить его ширину и высоту?

← →
d_oleg (2004-03-01 14:55) [3]

> А ты восстанови ее, замерь и сразу же опять, миксимизируй?

это не серьёзно... где-то же эти данные хранятся

> А не проще использовать глобальный объект (Screen по моему)
> и замерить его ширину и высоту?

а при чём здесь screen? каким образом от этих размеров зависит размер формы в ее нормальном состаянии?

← →
YurikGl (2004-03-01 15:05) [4]

У меня получилось Form1.height=screen.height+8; Проверил на двух разрешениях.

← →
Юрий Зотов (2004-03-01 15:09) [5]

GetWindowPlacement.

← →
Романов Р.В. (2004-03-01 15:11) [6]

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.OnCanResize := Form2.FormCanResize;
SendMessage(Form2.Handle, WM_SIZE, SIZE_RESTORED, 0);
form2.OnCanResize := nil;
end;

procedure TForm2.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
ShowMessage(IntToStr(NewWidth));
end;

← →
SPIRIT (2004-03-01 15:11) [7]

> YurikGl © (01.03.04 15:05) [4]

у тебя тоже 8 любимое число ?

← →
YurikGl (2004-03-01 15:16) [8]

Re [7] если разрешение 1280х960 то размер максимизированного окна 1288х968.
З.Ы. Интресно, почему так?

Максимизирую окно и нажимаю
procedure TForm1.Button2Click(Sender: TObject);

begin
Button1.Caption:=IntToStr(Form1.Height);
Button2.Caption:=IntToStr(Form1.width);

end;

← →
DVM (2004-01-23 13:14) [9]

> Re [7] если разрешение 1280х960 то размер максимизированного
> окна 1288х968.
> З.Ы. Интресно, почему так?

Потому как у окна есть бордюр, у максимизированного окна он находится за краем экрана, чтобы нельзя окно было менять в размерах мышкой. Толщина его по умолчанию 4.

← →
d_oleg (2004-03-01 17:37) [10]

Вообще-то вопрос был про нормальный размер окна, т.е. при FormState=wsNormal. Определить размеры развёрнутого окна сложности не представляет.

← →
DVM (2004-03-01 17:41) [11]

> Вообще-то вопрос был про нормальный размер окна, т.е. при
> FormState=wsNormal. Определить размеры развёрнутого окна
> сложности не представляет.

> Юрий Зотов © (01.03.04 15:09) [5]

← →
Юрий Зотов (2004-03-01 17:42) [12]

← →
d_oleg (2004-03-02 09:00) [13]

> Говорил же - GetWindowPlacement. Что же еще-то нужно?

Что-то я торможу наверное... GetWindowPlacement возвращает положение окна, а как же с его помощью получить размер?

← →
MBo (2004-03-02 09:02) [14]

в хелпе же написано
WINDOWPLACEMENT.rcNormalPosition

← →
d_oleg (2004-03-02 09:22) [15]

> в хелпе же написано
> WINDOWPLACEMENT.rcNormalPosition

Приношу свои извинения, не обратил внимания, что это структура RECT :-)

узнать размеры амксимизированного окна Найти похожие ветки