VPF::Плавающее окошко - Форум программистов

Somebody32

Дата 18.2.2006, 11:50 (ссылка)

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

Загрузка ...

Overclocker

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

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

У тебя этот код срабатывает?

Snowy

Дата 20.2.2006, 13:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

У меня работает такой код:

Код


var
  wnd: HWND;
begin
   wnd := GetForegroundWindow;    
   MyForm.FormStyle := fsNormal;
   MyForm.Show;    
   MyForm.FormStyle := fsStayOnTop;    
   SetForegroundWindow(wnd);
end;

А по таймеру делаю

Код

var
  wnd: HWND;
begin
  wnd := GetActiveWindow;
  if wnd <> Bubble.Handle then SetActiveWindow(Bubble.Handle);
end;

На случай перекрытия другими OnTop формами.

Somebody32

Дата 20.2.2006, 17:38 (ссылка)

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

Загрузка ...

Overclocker

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

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

Snowy, да по таймеру... я сам это сделал вчера, но всё равно спасибо, просто думал можно в обход таймера.

Semwize

Дата 29.9.2006, 23:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуте, народ. Я вот, вроде, все перечитал, но что-то я совсем ниче не догоняю... Мне надо сделать так, чтобы одна из моих форм, котоую я создаю с помощью нажатия горячих клавиш, все время была поверх всех окон. Использовал код :

Цитата

var
  wnd: HWND;
begin
    wnd := GetForegroundWindow;
    Show;
    FormStype := fsStayOnTop;
    SetForegroundWindow(wnd);
    SetActiveWindow(wnd);
end;

Но это не то, что мне нужно.. если один раз мое окно входит в активную фазу, то потом оно перестает быть onTop... вариант с checkbox меня тоже не совсем устраивает. Как же сделать? Если поможет: У меня прога, как блокнот, она висит в трее, и я открываю новые окна этого блокнота нажатием гор. клавиш.

С уважением, Semwize.

Semwize

Дата 30.9.2006, 19:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Snowy @ 20.2.2006, 13:04)

Код

var
  wnd: HWND;
begin
  wnd := GetActiveWindow;
  if wnd <> Bubble.Handle then SetActiveWindow(Bubble.Handle);
end;

На случай перекрытия другими OnTop формами.

А вот так у меня вообще не получается bubble - undeclared identifier

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