| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Форма на весь экран [D6, Win95/98]

Страницы:   < 1 2 >

MK ©   (2002-02-16 18:28:00) 

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

---

Almas   (2002-02-19 06:05:00) [1]

а что если воспользоваться своиством формы align:=alClient

---

MK   (2002-02-17 18:12:00) [2]

>Pat Спасибо! Работает!!!
Всем спасибо, кто отозвался!

---

LLL   (2002-02-17 14:49:00) [3]

Странно, я проверял свой вариант.
Работает.
А вот в след. не перекывается панель задач.

---

Pat   (2002-02-17 00:55:00) [4]

Вроде работает:

procedure TForm1.FormCreate(Sender: TObject);
var Rect:TRect;
begin
borderstyle:=bsnone;
left:=0;
top:=0;
width:=screen.Width;
height:=screen.Height;
GetWindowRect(handle,Rect);
SetWindowPos(Handle,HWND_TOPMOST,Rect.Left,Rect.Top,Rect.Right-Rect.Left,Rect.Bottom-Rect.Top, SWP_SHOWWINDOW);
end;



---

Набережных С.   (2002-02-17 00:37:00) [5]

>Almaz ©
>panov (M)
Приношу извинения и посыпаю голову пеплом! Большой сюрприз для меня, надо будет разобраться.

---

Almaz   (2002-02-17 00:14:00) [6]

>Набережных С. (16.02.02 23:50)
>Да не требуется - и так ясно. А Вы проверьте.
Слишком вы самоуверены. Потрудитесь все-таки сначала проверять, потом говорить.

---

Набережных С.   (2002-02-17 00:13:00) [7]

Иду пробовать

---

panov (M)   (2002-02-17 00:04:00) [8]

>Набережных С. (16.02.02 23:57)
У меня эту форму никакая другаяперкрыть не может.
К тому же выполняется ээтот ког в обработчике таймера...

---

Набережных С.   (2002-02-16 23:57:00) [9]

> panov (M) (16.02.02 23:50)


Любая форма другого приложения может перекрыть такое окно.

---

panov (M)   (2002-02-16 23:50:00) [10]

>Almaz © (16.02.02 23:41)
Могут быть и другие подобные формы... У других приложений...
В этом случае может и не получиться.

---

Набережных С.   (2002-02-16 23:50:00) [11]

> Almaz © (16.02.02 23:41)
> >Набережных С.
> А вы проверьте сначала...


Да не требуется - и так ясно. А Вы проверьте.

---

Almaz   (2002-02-16 23:41:00) [12]

>Набережных С.
А вы проверьте сначала...

---

Набережных С.   (2002-02-16 23:30:00) [13]

>Almaz © (16.02.02 23:28)

IMHO ничего не получаем.

---

Almaz   (2002-02-16 23:28:00) [14]

Попробуйте такой вариант:
Для формы устанавливаем:
BorderStyle := bsNone;
FormStyle := fsStayOnTop;

Затем в обработчике OnCreateпишем:
procedure TForm1.FormCreate(Sender: TObject);
begin
WindowState := wsMaximized;
end;

Получаем форму на весь экран и поверх всего, что можно.

Удачи.

---

panov (M)   (2002-02-16 23:27:00) [15]

И проверь вот это пример:
SetWindowPos(Application.MainForm.Handle,HWND_TOPMOST,0,0,Screen.Width,Screen.Height,SWP_SHOWWINDOW);
SetActiveWindow(Application.MainForm.Handle);
Application.Restore;

---

panov (M)   (2002-02-16 23:26:00) [16]

>MK (16.02.02 22:29)
С чего это он не перекроет панель задач?

---

Набережных С.   (2002-02-16 23:24:00) [17]

Проверь еще WindowState := wsNormal

---

MK   (2002-02-16 23:03:00) [18]

"Посадил" в OnShow - ничего... Буду дальше думать, наверно я достал всех уже...

---

Набережных С.   (2002-02-16 22:58:00) [19]

Попробуй "посадить" в OnShow.

---

MK   (2002-02-16 22:47:00) [20]

SetWindowPos поместил в OnCreate, в результате панель задач все таки осталась наверху - не пойму в чем дело...

---

Страницы:   < 1 2 >

Наверх