Рамеры формы и экрана

← →
tar (2007-03-25 16:13) [0]

Приветствую! Мне необходимо, чтобы при запуске размеры формы были во весь экран, казалось юы нужно установить свойство wsMaximized, но при этом видна панель задач Windows, подскажите пожалуйста как сделать так чтобы форма действительно открывалась во весь экран.

← →
Desdechado © (2007-03-25 16:29) [1]

Если юзер хочет увидеть твою форму на весь экран, то он сам сделает скрывающуюся панель задач. Если же он хочет видеть панель задач, а ты ему в этом мешаешь, то я бы на месте этого юзера отправил такую программу в мусорку.

← →
tar (2007-03-25 16:32) [2]

Мне действительно нужно форма закрывающая во весь экран, пожалуйста подскажите как это осуществить.

← →
aht © (2007-03-25 16:35) [3]

ну, как я понимаю, необходимо определить размеры экрана (в зависимости от установленного разрешения) и задать ширину и высоту формы. Вот как узнать разрешение, не скажу - надо хелп смотреть, 100-пудово в shellapi должно быть...

← →
Rial © (2007-03-25 16:46) [4]

BorderStyle:=bsNone;

← →
tar (2007-03-25 16:46) [5]

Да я так и делал (определял размеры экрана и приравнивал к ним свою форму), но ничего не выходит, наглая панель задач всё равно была поверх формы.

← →
tar (2007-03-25 16:51) [6]

Так короче:

Formcreate:

form1.height:=screen.height;
form1.width:=screen.width;

form1.formstyle:=fsStayonTop;
form1.borderstyle:=bsNone;
form1.windowstate:=wsMaximized;

...и всё напрасно:((

← →
eXPell © (2007-03-25 17:22) [7]

Это попробуй:)
r : TRect; begin SystemParametersInfo(SPI_GETWORKAREA, 0,@r,0); form1.Top:=r.Top; Left:=r.Left; height:=r.Bottom; form1.Width:=r.Right;

и это оставь

> form1.formstyle:=fsStayonTop;
> form1.borderstyle:=bsNone;
> form1.windowstate:=wsMaximized;

← →
RASkov (2007-03-25 17:32) [8]

> [6] tar (25.03.07 16:51)

procedure TForm1.Button1Click(Sender: TObject); begin WindowState:=wsMaximized; BorderStyle:=bsNone; end;
Закрывает все на экране и панель тоже...
ЗЫ В свойствах панели задач - галочка стоит "Отоброжать поверх остальных окон"...
ЗЫЫ А нафик надо все закрывать своей формой?

← →
tar (2007-03-25 17:38) [9]

Короче не прокатило, мнее нужно, чтобы даже в не зависимости от того, какие свойства установлены у панели задач, форма в наглую покрывала экран, ну типа как в скринсэйверах.

← →
RASkov (2007-03-25 18:02) [10]

> Короче не прокатило

Че не прокатило? А у меня прокатывает (WinXP Sp2, D7)...

> форма в наглую покрывала экран, ну типа как в скринсэйверах.

Это ты уже говорил. Ты скажи

> А нафик надо все закрывать своей формой?

Может тебе и форма-то не нужна....

← →
tar (2007-03-25 18:08) [11]

Че не прокатило?

> Форма не покрывает панель задач

форма должна выполнять функции блокировки

когда я в свойствах панели задач убираю галочку - отображать поверх остальных окон, то конечно, форма покрывает весь экран...
нужно как-то обойти эту .... панель задач

← →
eXPell © (2007-03-25 18:20) [12]

> tar (25.03.07 18:08) [11]

а может ее лучше спрятать? А? Код нужен? или сам найдешь?

ЗЫ. ;)

← →
tar (2007-03-25 18:23) [13]

подскажи код

Пожалуйста(если я понимаю о чем разговор:))))
procedure TForm1.Button1Click(Sender: TObject); var hTaskBar : THandle; begin hTaskbar := FindWindow("Shell_TrayWnd", Nil); ShowWindow(hTaskBar, SW_HIDE); end; procedure TForm1.Button2Click(Sender: TObject); var hTaskBar : THandle; begin hTaskbar := FindWindow("Shell_TrayWnd", Nil); ShowWindow(hTaskBar, SW_SHOWNORMAL); end;

ЗЫ. с пионерил с КД:)

← →
tar (2007-03-25 18:45) [15]

да, панель скрывается - это есть хорошо, а вот место где она должна быть форма не закрывает ;(( там просто пустое место

← →
tar (2007-03-25 18:45) [16]

← →
tar (2007-03-25 18:51) [17]

Я решил проверить и вывести в memo размеры рабочей области
r : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0,@r,0);
form1.Top:=r.Top;
Left:=r.Left;
height:=r.Bottom;
form1.Width:=r.Right;

memo выдал:

0
0
844
1400

У меня на мониторе разрешение 1400*900, как я понимаю 54 точки резервируются для панели задач
?????????????????????????????????

← →
tar (2007-03-26 09:41) [18]

Как оказалось нужно в свойстве формы DefaultMonitor равным DMPrimary

← →
tar (2007-03-26 15:57) [19]

Можно закрыть тему

Рамеры формы и экрана Найти похожие ветки