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

Somebody32

Дата 15.2.2006, 17:42 (ссылка)

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

Загрузка ...

Overclocker

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

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

Решил создать плавающее окошко как например в DownloadMaster и многих менеджерах закачек, но столкнулся с некоторыми проблемами:

1) если ставить bsNone, то окно нельзя двигать
2)программа из-за активной формы постоянно висит в таскбаре
3) даже если ставить fsOntop, то окно перекрывается другими.

У кого есть хоть малейшие знания по данным проблемам, прошу поделиться.

P.S. В поиске искал, ничего не нашёл.

Romikgy

Дата 15.2.2006, 18:00 (ссылка)

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

Загрузка ...

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

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

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

Цитата(Somebody32 @ 15.2.2006, 16:42

)

если ставить bsNone, то окно нельзя двигать

Можно

Цитата(Somebody32 @ 15.2.2006, 16:42

)

программа из-за активной формы постоянно висит в таскбаре

Можно спятать с таскбара

Цитата(Somebody32 @ 15.2.2006, 16:42

)

даже если ставить fsOntop, то окно перекрывается другими.

А это странно, должно быть всегда сверху

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

bems

Дата 15.2.2006, 19:52 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Цитата(Somebody32 @ 15.2.2006, 17:42

)

1) если ставить bsNone, то окно нельзя двигать

WM_NCHITTEST

Цитата(Somebody32 @ 15.2.2006, 17:42

)

2)программа из-за активной формы постоянно висит в таскбаре

ShowWindow(Application.handle,SW_HIDE)

Цитата(Somebody32 @ 15.2.2006, 17:42

)

3) даже если ставить fsOntop, то окно перекрывается другими.

действительно странно...

Это сообщение отредактировал(а) bems - 15.2.2006, 19:55

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

Обижено школьников: 8

Somebody32

Дата 16.2.2006, 11:17 (ссылка)

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

Загрузка ...

Overclocker

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

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

bems, нет, оно появляется, но если нажать на окно другой программы, то оно перекроется, как этого избежать?

_hunter

Дата 16.2.2006, 11:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

никак. для TopMost окон применяются все те же правила z-order' а.
те программы, у которых окно выше всех ( скорее всего ) используют свои алгоритмы отрисовки.
можеш попробовать два таких окна перекрыть -- посмотри что будет...

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

Tempora mutantur, et nos mutamur in illis...

Snowy

Дата 16.2.2006, 12:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Просто нужно показывать свое окно в неактивном режиме.

Код


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

Somebody32

Дата 16.2.2006, 16:03 (ссылка)

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

Загрузка ...

Overclocker

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

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

Snowy, и это прописать в главную форму при вызове окошка? Или куда?

Snowy

Дата 16.2.2006, 16:07 (ссылка)

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

Загрузка ...

Эксперт

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

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

Это нудно прописать вместо Form2.Show.
Добавлено @ 16:08
По сути это то же Form2.Show, только возвращает фокус обратно окну, которое было активно до этого.
Тогда наше окно останется поверх, т.к. пользователю просто не нужно будет кликать по другому окну.

Somebody32

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

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

Загрузка ...

Overclocker

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

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

Snowy, всё, работает, пасиб, но только вот не разобрался с перемещением окна, не хочет оно.

Snowy

Дата 16.2.2006, 21:11 (ссылка)

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

Загрузка ...

Эксперт

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

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

Это просто
http://vingrad.ru/DELPHI-DLP-000520

Somebody32

Дата 16.2.2006, 21:41 (ссылка)

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

Загрузка ...

Overclocker

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

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

Огромное спасибо! Вопрос решен!

Somebody32

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

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

Загрузка ...

Overclocker

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

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

Snowy, что-то рано я радовался... окошко всё равно исчезает под другими.. показываю его так

Код


if Checkbox1.Checked=True then
begin
   wnd := GetForegroundWindow;
   Form8.Show;
   FormStyle := fsStayOnTop;
   SetForegroundWindow(wnd);
   SetActiveWindow(wnd);
   ShowWindow(Application.handle,SW_HIDE);
end;

Но оно исчезает, не пойму...

Snowy

Дата 17.2.2006, 17:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

А зачем это:

Цитата(Somebody32 @ 17.2.2006, 17:38

)

ShowWindow(Application.handle,SW_HIDE);

Цитата(Somebody32 @ 17.2.2006, 17:38

)

Но оно исчезает, не пойму...

Что исчезает? Плавающее окошко?
Видимо у тебя главная форма тоже fsStayOnTop.
В дизайне убери с плавающего окошка fsStayOnTop. Поставь обычный fsNormal.
Еще можешь в конце попробовать добавить Form8.BringToFront;

z-END

Дата 17.2.2006, 17:49 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

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

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

Snowy

Дата 17.2.2006, 17:52 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код

if Checkbox1.Checked=True then
var
  wnd: HWND;
begin
  ShowWindow(Application.handle,SW_HIDE);
  wnd := GetForegroundWindow;
  with Form8 do
  begin
    Show;
    FormStyle := fsStayOnTop;
    BringToFront;
    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
                SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
  end;
  SetForegroundWindow(wnd);
  SetActiveWindow(wnd);
end;

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: Общие вопросы \| Следующая тема »