Главная страница
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.026 c
1-84215
Соловьев
2003-06-12 16:45
2003.06.26
ActiveX - threading model?


3-83904
Viktor
2003-06-03 12:16
2003.06.26
Создание базы данных MS Access программно


4-84819
Мишган
2003-04-23 11:18
2003.06.26
Отловить запуск DOS-приложения


1-84380
Andy BitOff
2003-06-09 12:01
2003.06.26
Как выбрать SelectItems


3-83983
sergei12r
2003-05-30 06:51
2003.06.26
нужно перекинуть dbaseские даные на parabox програмно