VPF::Fullscreen в браузере - Форум программистов

kind_programmer

Дата 2.6.2007, 15:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Привествую всех...

Все знают функцию в Опере "во весь экран"{FullScreen}, пытаю повторить подобное у себя в программе, но пока безуспешно...
Наткнулся на процедуру в delphiWorld "полноэкранный режим", совсем не то оказалось...

Кто знает как это реализовать....?

lukas

Дата 2.6.2007, 17:00 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

а чем тебя не устраивают стандартные способы..

Код


...
Form.WindowState:=wsMaximized;
Form.BorderStyle:=bsNone;
WB.Width:=screen.Width;
WB.Height:=screen.Height;
...

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Sunvas

Дата 2.6.2007, 17:33 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Разоврачиваешь форуму на весь экран и "подталкиваешь" ее поверх остальных окон. Подробноси найдешь поиском.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

lukas

Дата 2.6.2007, 20:10 (ссылка)

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

Загрузка ...

Опытный

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

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

"Подталкиваешь" - StayOnTop , включаем и выключаем... вот и вытолкнем... smile

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Sanchezzz

Дата 2.6.2007, 20:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


procedure TFORM1.FullScrenClick(Sender: TObject);
begin
   with Sender as TMenuItem do
  begin
    Checked := not Checked;
begin
if FullScren.Checked=true then
begin
BorderStyle:= bsNone;
WindowState:= wsMaximized;
end else
if FullScren.Checked=false then
begin
WindowState:= wsNormal;
BorderStyle:= bsSizeable;
end;end;end;
end;

Это сообщение отредактировал(а) Sanchezzz - 2.6.2007, 20:56

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

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

Sunvas

Дата 2.6.2007, 20:57 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(lukas @ 2.6.2007, 20:10

)

включаем и выключаем... вот и вытолкнем..

Это ламерство. Надо все делать на сообщениях винды.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

lukas

Дата 2.6.2007, 21:23 (ссылка)

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

Загрузка ...

Опытный

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

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

ну ладно... виндавоз так виндавоз... smile

Код


ShowWindow(findwindow(nil,PChar(form.Caption),sw_show);

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

kind_programmer

Дата 3.6.2007, 01:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Господа, может я не правельно выразился....
Меня интересует,чтоб на всем экране ничего кроме Html-страницы не было при FullScreen.
На форме есть куча пенелей и т. п.при том, что вы указали они то остаются, а нужно чтоб один TwebBrowser со страницей внутри.

То, что Sanchezzz, lukas написали, так я это сам первую очередь пытал...сами научили, такие стандартные способы писать! smile

lukas

Дата 3.6.2007, 22:32 (ссылка)

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

Загрузка ...

Опытный

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

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

а что трудно сделать так:

Код


WB.BringToFront;
WB.Left:=0;
WB.Top:=0;
WB.Height:=screen.Heigth;
WB.Width:=screen.Width;

или в конце концов сделать отдельное окно с другим браузером специально для фулскрина...

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Poseidon

Дата 4.6.2007, 16:22 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(Sunvas @ 2.6.2007, 20:57)

Цитата(lukas @ 2.6.2007, 20:10

)

включаем и выключаем... вот и вытолкнем..

Это ламерство. Надо все делать на сообщениях винды.

Все на сообщениях винды - это еще большее ламерство. Нужно делать все на ассемблере! smile

извените, не удержался...

А вообще, что мешает сделать все, кроме ВебБраузера на форме невидимым (Visible:= False), у Браузера сделать Align:= alClient и разварачивать форму "во весь рост"?

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Sunvas

Дата 4.6.2007, 18:21 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Poseidon @ 4.6.2007, 16:22

)

Нужно делать все на ассемблере!

Интересно, а откуда тебе известно, как заменить API функции асмом?

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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