Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Панель задач и меню "Пуск", Проблема 
:(
    Опции темы
Silmarion
Дата 1.11.2005, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет
Вообщем проблема такая...
Мне на до скрыть строку задач... Я это делаю таким образом
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_Hide);
Но проблема возникает когда я должен растянуть форму во все окно... а оно растягивается, но там где находится панель задачь остается место от он него... ходя его и не видно... Подскажите как решить проблему... а точнее как сделать строку состояния не просто не видимой, а выполнять одно из свойств "Автоматическое скрытие панели задач"
PM MAIL ICQ   Вверх
Silmarion
Дата 1.11.2005, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет
Неужели никто не может помочь?
PM MAIL ICQ   Вверх
Romikgy
Дата 1.11.2005, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146
Перед скрытием включи автохайд smile


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Silmarion
Дата 1.11.2005, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет
Цитата(Romikgy @ 1.11.2005, 12:47)
Перед скрытием включи автохайд smile

А по точнее можешь сказать как она называется SW_<что-то>
Это <что-то> вообщем то все что я хотел бы узнать...

Это сообщение отредактировал(а) Silmarion - 1.11.2005, 12:57
PM MAIL ICQ   Вверх
Silmarion
Дата 1.11.2005, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет
Не ужели все больше нет таких людей которые ДЕЙСТВИТЕЛЬНО помогут... вопрос то вобщемто не сложный...



ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_<X>);
Подскажите что надо поставить вместо <X> что бы она не исчезала как со свойством Hide, а именно просто убиралась с экрана и при наводке на нее она появлялась...
PM MAIL ICQ   Вверх
ne0n
Дата 1.11.2005, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


PlayBoy
**


Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 4
Всего: 11
Я привильно понял, надо чтобы форма закрыла весь экран?


--------------------
http://sa-sec.org
как я вам?smile
PM MAIL ICQ   Вверх
Silmarion
Дата 1.11.2005, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет
Цитата(ne0n @ 1.11.2005, 13:55)
Я привильно понял, надо чтобы форма закрыла весь экран?

Совешенно верно smile
Но с условием что до строки задач никто не мог добраться без меня=))

Это сообщение отредактировал(а) Silmarion - 1.11.2005, 14:00
PM MAIL ICQ   Вверх
ne0n
Дата 1.11.2005, 14:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


PlayBoy
**


Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 4
Всего: 11
если не ошибаюсь это должно помочь:

Код
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 
end; 

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;


Это сообщение отредактировал(а) Girder - 1.11.2005, 16:00


--------------------
http://sa-sec.org
как я вам?smile
PM MAIL ICQ   Вверх
Silmarion
Дата 1.11.2005, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет
Вобщем то у меня так и было=((
но как не получалось так и не получается смотри от чего я хочу избавиться
Здесь скрин с пояснением

А вот код проги точнее ее части
EnableWindow(FindWindow('Shell_TrayWnd', nil),False);
Form1.Height := Screen.Height;
Form1.Width := Screen.Width;
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_Hide);
PM MAIL ICQ   Вверх
ne0n
Дата 1.11.2005, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


PlayBoy
**


Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 4
Всего: 11
Ты пробовал этот код, у меня все так как должно быть, пустого места нет!!!



--------------------
http://sa-sec.org
как я вам?smile
PM MAIL ICQ   Вверх
Silmarion
Дата 1.11.2005, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет
В том то и проблема что у меня точно такойже код только
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
Уже вбито project.dpr
Добавлено @ 14:53
Может проблема в том что у меня хр???
PM MAIL ICQ   Вверх
ne0n
Дата 1.11.2005, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


PlayBoy
**


Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 4
Всего: 11
Странно, не знаю в чем дело, но на всякий случай вот исходник
не в xp дело у меня тоже xp (sp1)

Это сообщение отредактировал(а) ne0n - 1.11.2005, 15:04

Присоединённый файл ( Кол-во скачиваний: 11 )
Присоединённый файл  1.rar 4,65 Kb


--------------------
http://sa-sec.org
как я вам?smile
PM MAIL ICQ   Вверх
Silmarion
Дата 1.11.2005, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет
Цитата(ne0n @ 1.11.2005, 15:02)
Странно, не знаю в чем дело, но на всякий случай вот исходник
не в xp дело у меня тоже xp (sp1)

Спасибо БОЛЬШОЕ все заработало...
Дело было в том, что значения вормы типа sizeble надо выставлять при Form.Create, а я сразу это выставил в Object Inspector'e
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1312 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.