|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Форма "во весь экран"
Вишу приложение с формой во весь кран (и таск бар не виден). Код для показа "во весь экран" такой:
Код:
procedure TForm1.FormCreate(Sender: TObject); var HTaskbar: HWND; OldVal: LongInt; begin try // Find handle of TASKBAR HTaskBar := FindWindow('Shell_TrayWnd', nil); // Turn SYSTEM KEYS off, Only Win 95/98/ME SystemParametersInfo(97, Word(True), @OldVal, 0); // Disable the taskbar EnableWindow(HTaskBar, False); // Hide the taskbar ShowWindow(HTaskbar, SW_HIDE); finally with Form1 do begin BorderStyle := bsNone; FormStyle := fsStayOnTop; Left := 0; Top := 0; Height := Screen.Height; Width := Screen.Width; end; end; Но, после выхода из приложения - надо 2вернуть" таскбар на место, для этого испольую такой код: Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var HTaskbar: HWND; OldVal: LongInt; begin //Find handle of TASKBAR HTaskBar := FindWindow('Shell_TrayWnd', nil); //Turn SYSTEM KEYS Back ON, Only Win 95/98/ME SystemParametersInfo(97, Word(False), @OldVal, 0); //Enable the taskbar EnableWindow(HTaskBar, True); //Show the taskbar ShowWindow(HTaskbar, SW_SHOW);} end; Прбывал еще такой вариант показа таскбара: Код:
var TaskBar: HWND; begin TaskBar := FindWindow( 'Shell_TrayWnd', nil ); ShowWindow( TaskBar, SW_SHOW ); end; Кто знает как нормально восстановить таскбар? Последний раз редактировалось lmikle, 05.01.2013 в 11:46. |
#2
|
||||
|
||||
попробуй так:
Код:
procedure TForm1.FormCreate(Sender: TObject); begin Form1.BorderStyle := bsNone; // без заголовка окна Form1.WindowState := wsMaximized; // окно во весь экран Form1.Position := poScreenCenter; // центровка формы end; уволен в запас!!! |
Этот пользователь сказал Спасибо RusMaXXX за это полезное сообщение: | ||
D_E_N_ (12.01.2013)
|
#3
|
|||
|
|||
при таком коде, если я не ошибаюсь, таскбар будет присутствовать на экране...
|
#4
|
||||
|
||||
Цитата:
ошибаешься!! попробуй уволен в запас!!! |
#5
|
|||
|
|||
Таки ошибся, работает так как ты сказал спасибо!
|