VPF::Как выводить форму? - Форум программистов

Pavelbej

Дата 22.9.2006, 19:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Есть программа, клик по иконке в трэе и программа прячется, клик еще раз - отображается. А как сделать чтобы прога выводилась поверх всех остальных окон (если находится на экране за ними), а не пряталась в трэе. Прятаться она должна только когда активна.

Пробовал так

Код


procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
   if not SetForegroundWindow(Application.Handle) then
      hideprogram; //
end;

поверх всех окон появляется но уже прятатся не хочет.

Sunvas

Дата 22.9.2006, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

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

Репутация: 28
Всего: 89

Ну, дык, проверяй активна ли форма:

Код


if form1.Active then {Прячь форму}

Чтобы форма постоянно была поверх других, ты ее должен постоянно "подталкивать" наверх. Это лучше делать при помощи таймера, и вот такой вот процедуры:

Код


function TopPosition(hWin: HWND; Top: Boolean): BOOL;
var
 Regim: Integer;
begin
 if Top
  then Regim := HWND_TOPMOST
  else Regim := HWND_NOTOPMOST;
 Result := SetWindowPos(hWin, Regim, 0, 0, 0, 0,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »