Как вернуть форму к предыдущему состоянию

← →
Dmk (2003-06-14 21:44) [0]

из полноэкранного режима?
Делаю так:

procedure TImageForm.WMGetMinMaxInfo(var msg:TWMGetMinMaxInfo);
begin
inherited;

//...
If FFullScreenForm then
begin
with msg.MinMaxInfo^.ptMaxTrackSize do
begin
X := FFullFormRect.Width;
Y := FFullFormRect.Height;
end;
end;

//...
If FNormalScreenForm then
begin
with msg.MinMaxInfo^.ptMaxTrackSize do
begin
X := FNormalFormRect.Width;
Y := FNormalFormRect.Height;
end;
end;
end;

//..............................................................................

Procedure TImageForm.WMSetFullScreen(var message:TMessage);
var
x,y: Integer;
nW,nH: Integer;
PRegion: TRegion;
R: TRect;

begin
If not FFullScreenForm then
begin
FNormalFormRect := TRectToTRegion(Self.BoundsRect);

//

← →
Dmk (2003-06-14 21:46) [1]

Self.Align := alClient; - это я забыл удалить.

← →
Dmk (2003-06-14 23:05) [2]

Удалено модератором
Примечание: Создание пустых сообщений

← →
Dmk (2003-06-15 01:54) [3]

Хех! Разобрался. Оказывается если Child-форма была wsMaximized,
при восстановлении размеров главной формы, Child-форма автоматически меняет размеры на последние. Так что при восстановлении размеров Child-формы не надо вызывать SetBounds.

Как вернуть форму к предыдущему состоянию Найти похожие ветки