VPF::Разрешение экрана - Форум программистов

Михалыч

Дата 11.7.2008, 17:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

У меня такой вопрос:моя программа блокирует в установленное
время игры.То есть сворачивает игру и выскакивает окно во весь
экран где надо ввести пароль.Все нормально работает.Вопрос в том,
когда я играю в игру,то
игра выставляет разрешение экрана например 1024:768.А вопрос
такой:когда из моей программы выскакивает окно во весь экран,то мое
окно при разрешении игры 1024:768 становится не во весь экран,а смещается
в левый верхний угол,то есть не закрывает весь рабочий стол.А если в игре
сделать разрешение 800:600,то окно становится еще меньше и сдвигается
к левому верхнему углу.Подскажите что надо сделать чтобы окно независимо
от разрешения экрана всегда закрывало весь рабочий стол

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Snowy

Дата 11.7.2008, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Показать окно, а потом установить размер во весь экран.

Михалыч

Дата 11.7.2008, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Цитата(Snowy @ 11.7.2008, 17:15

)

Показать окно, а потом установить размер во весь экран.

Не получается,я и в Show код вставлял Form4.WindowState:=wsMaximized; и в таймер пробовал.Все одно и тоже

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Letov

Дата 12.7.2008, 00:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4

А если попробовать выставлять размеры окна динамически?
Например, так:

Код

procedure TForm1.OnShow(Sender: TObject);
var Screen: TScreen;
begin
   Screen:=TScreen.Create(Form1);
   Form1.Height := Screen.Height;
   Form1.Width :=Screen.Width;
   Screen.Free;
end;

Это сообщение отредактировал(а) Letov - 12.7.2008, 00:40

--------------------

Не бывает плохих языков программирования. Бывают плохие программисты...

THandle

Дата 12.7.2008, 06:30 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Цитата(Letov @ 12.7.2008, 01:40

)

А если попробовать выставлять размеры окна динамически?

Размеры будут такие же как у окна игры.

Попробовал так:

Код



procedure TForm1.FormCreate(Sender: TObject);
begin
  Width := GetSystemMetrics(SM_CXSCREEN);
  Height := GetSystemMetrics(SM_CYSCREEN);
end;

То же самое. Видимо игра сама устанавливает разрешение. Остается делать так, как сказал Snowy.

Сначала показываем - потом ставим размер.

Или же можно попробовать сначала свернуть игру, потом показать форуму и сразу изменить размер...

deswars

Дата 14.7.2008, 10:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 23.6.2008

Репутация: нет
Всего: нет

Сначала показываеш форму, а потом подгоняеш размер под разрешение

MIXers

Дата 5.8.2008, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 5.8.2008

Репутация: нет
Всего: нет

можно еще WinAPI пробнуть:

Код


  DC:=GetDC(0);
  Width:=GetDeviceCaps(DC, HORZRES);
  Height:=GetDeviceCaps(DC, VERTRES);

Это сообщение отредактировал(а) MIXers - 5.8.2008, 21:52

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »