VPF::Полноэкранный режим - Форум программистов

pomogite

Дата 7.1.2010, 23:22 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


SendMessage (Handle, WM_SYSCOMMAND, SC_ZOOM, 0);

Не помогает =(

Код


Left:= 0;
Top:= 0;
Height:= Screen.Height;
 Width:= Screen.Width;

это тоже =( Форма висит в левом верхнем углу и все =(
кто подскажет как маштабировать форму на весь экран? неважно с окном трея или нет

Данкинг

Дата 7.1.2010, 23:34 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Код


BorderStyle:=bsNone;
WindowState:=wsMaximized;

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

There's nothing left but silent epitaphs.

pomogite

Дата 7.1.2010, 23:42 (ссылка)

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

Загрузка ...

Бывалый

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

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

Данкинг, Спасибо smile

Теперь как в ней "обоину" растянуть? =) И элементы расположенные на ней?

Данкинг

Дата 8.1.2010, 00:03 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(pomogite @ 7.1.2010, 23:42

)

Теперь как в ней "обоину" растянуть? =)

Привязывать к размерам формы, а как ещё. smile

Вот у меня нечто такое было:

Код


procedure TForm2.FormCreate(Sender: TObject);
begin
image1.Width:=screen.Width;
image1.height:=screen.height;
form2.Cursor:=crNone;
end;

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

There's nothing left but silent epitaphs.

Keeper89

Дата 8.1.2010, 03:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Данкинг, можно извратиться и в 1 строчку кода:

Код


image1.Align := alClient;

А по поводу элементов (на выбор):

растягивать пропорционально самостоятельно;
использовать TGridPanel (есть в Delphi выше 7 версии).

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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