Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.01.2013, 11:08
lostbananan lostbananan вне форума
Начинающий
 
Регистрация: 05.01.2013
Сообщения: 119
Репутация: 10
По умолчанию Форма "во весь экран"

Вишу приложение с формой во весь кран (и таск бар не виден). Код для показа "во весь экран" такой:
Код:
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;
У меня соит система Вин 7, а данный код под нее некорекно работает - таскбар не появляется, появляется только кнопка "пуск".
Прбывал еще такой вариант показа таскбара:
Код:
var
  TaskBar: HWND;
begin
  TaskBar := FindWindow( 'Shell_TrayWnd', nil );
  ShowWindow( TaskBar, SW_SHOW );
end;
Этот од - и таск бар и кнока пус на месте, (кнопка работает нормально), таск бар - на экране есть, но он неработает (когда кликаешь на иконку в таскбаре - только раздается звук винды об ошибке
Кто знает как нормально восстановить таскбар?

Последний раз редактировалось lmikle, 05.01.2013 в 11:46.
Ответить с цитированием
  #2  
Старый 05.01.2013, 12:02
Аватар для RusMaXXX
RusMaXXX RusMaXXX вне форума
Начинающий
 
Регистрация: 01.10.2008
Сообщения: 138
Версия Delphi: 7
Репутация: 21
Лампочка

попробуй так:

Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.BorderStyle := bsNone;       // без заголовка окна
  Form1.WindowState := wsMaximized;  // окно во весь экран
  Form1.Position := poScreenCenter;  // центровка формы
end;
__________________
уволен в запас!!!
Ответить с цитированием
Этот пользователь сказал Спасибо RusMaXXX за это полезное сообщение:
D_E_N_ (12.01.2013)
  #3  
Старый 05.01.2013, 15:40
lostbananan lostbananan вне форума
Начинающий
 
Регистрация: 05.01.2013
Сообщения: 119
Репутация: 10
По умолчанию

при таком коде, если я не ошибаюсь, таскбар будет присутствовать на экране...
Ответить с цитированием
  #4  
Старый 05.01.2013, 16:28
Аватар для RusMaXXX
RusMaXXX RusMaXXX вне форума
Начинающий
 
Регистрация: 01.10.2008
Сообщения: 138
Версия Delphi: 7
Репутация: 21
По умолчанию

Цитата:
Сообщение от lostbananan
при таком коде, если я не ошибаюсь, таскбар будет присутствовать на экране...

ошибаешься!! попробуй
__________________
уволен в запас!!!
Ответить с цитированием
  #5  
Старый 05.01.2013, 16:32
lostbananan lostbananan вне форума
Начинающий
 
Регистрация: 05.01.2013
Сообщения: 119
Репутация: 10
По умолчанию

Таки ошибся, работает так как ты сказал спасибо!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:07.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter