Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

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

 
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.



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
6-84510
mixamixa
2003-04-20 20:25
2003.06.26
Предача файлов ч/з ClientSocket & Serve


14-84521
Marser
2003-06-05 22:59
2003.06.26
О природе русского мата


1-84090
Seldon
2003-06-08 00:38
2003.06.26
OwnerDraw в TPageControl


1-84166
Muskat
2003-06-11 13:54
2003.06.26
pchar


1-84184
Doc
2003-06-12 08:10
2003.06.26
Указатель String...