Full Screen Mode

← →
Orion © (2009-03-23 15:32) [0]

Добрый день, господа профессионалы.

Подскажите пожалуйста решение вот такой вот проблемы.
Нужно с некоторой начальной формы выполнить создание другой и развернуть ее на весь экран, так сказать в "full screen". Выполнять это надо, скажем по нажатию кнопки:

procedure TForm1.Button1.Click
begin
Form2:=TForm2.Create(Application);
Form2.ShowModal; // Ну или просто Form2.Show
end;

После этого созданную форму нужно развернуть по принципу:

Form2.Height:=Screen.Height;
Form2.Width:=Screen.Width;
Form2.BorderStyle:=bsNone;
Form2.Left:=0;
Form2.Top:=0;

желательно по событию OnCreate.

НО. Дело в том что ни по OnCreate ни по какому-либо другому событию развернуть ее не удается. Выскакивает ошибка доступа к памяти с каким-то там адресом.

Подскажите, в чме дело. Заранее спасибо.

← →
clickmaker © (2009-03-23 15:38) [1]

> Form2

это что за переменная? где объявлена?

← →
Сергей М. © (2009-03-23 15:43) [2]

Казалось бы, причем тут Full Screen Mode ?

Те же самые грабли шлепнут по тому же самому лбу даже при попытке лицезреть совсем, казалось бы, безобидное свойство

ShowMessage(Form2.Name);

> Orion

Ты не находишь что так оно и есть ?)

← →
tesseract © (2009-03-23 16:09) [3]

> После этого созданную форму нужно развернуть по принципу:
>
>
> Form2.Height:=Screen.Height;
> Form2.Width:=Screen.Width;
> Form2.BorderStyle:=bsNone;
> Form2.Left:=0;
> Form2.Top:=0;
>
> желательно по событию OnCreate.

Туда нельзя засовывать операции с формой. Она же ещё не создана. Тут можно только всякие объекты создавать.

← →
Сергей М. © (2009-03-23 16:16) [4]

> Туда нельзя засовывать операции с формой

Можно.

> Она же ещё не создана

Создана.

← →
Плохиш © (2009-03-23 16:23) [5]

> Туда нельзя засовывать операции с формой. Она же ещё не
> создана.

Врать не хорошо.

← →
Anatoly Podgoretsky © (2009-03-23 16:58) [6]

> Orion (23.03.2009 15:32:00) [0]

Форма без границ + Maximaze

Form2.BorderStyle:=bsNone;
Form2.Left:=0;
Form2.Top:=0;
Form2.Width:=Screen.Width;
Form2.Height:=Screen.Height;
Form2.FormStyle:=fsStayOnTop;

{писать в OnCreate}

Full Screen Mode Найти похожие ветки