VPF::Создание хитрого дочернего окна

ilya198293

Дата 19.6.2008, 12:10 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

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

Хочу создать дочернее окошко(наховём его XXX), которое всегда было бы поверх приложения, причём модальные окна основного окна не должны блокировать XXX. А также это окно бы создавалось из любого окна: основного, модального и др. и существовало не зависимо от того что происходит в других окнах. Например запустил модальное окно, вызвал ХХХ поверх всего, поработал в модальном при этом ХХХ всегда сверху, закрыл модальное, ХХХ осталось поверх всего.

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

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Snowy

Дата 19.6.2008, 12:30 (ссылка)

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

Загрузка ...

Эксперт

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

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

Установи FormStyle := fsStayOnTop

ilya198293

Дата 19.6.2008, 12:52 (ссылка)

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

Загрузка ...

Бывалый

Модальная форма забивает форму ХХХ и она становится в фоне.

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

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

pseud

Дата 19.6.2008, 13:38 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Цитата(Snowy @ 19.6.2008, 12:30

)

Установи FormStyle := fsStayOnTop

+ к этому :

Код


procedure TXXXForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST; // делаем форму самой верхней, т.к. св-во FormStyle(fsStayOnTop) не качественно отрабатывает
end;

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Snowy

Дата 19.6.2008, 13:58 (ссылка)

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

Загрузка ...

Эксперт

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

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

Модальные окна забивают основной тред.
В этом их суть.
Пока оно не погашено, приложению чихать на ЛЮБЫЕ другие окна, работающие в данном треде.
Либо не используй модальные окна, либо создавай своё суперокно на чистом API в отдельном треде.

ilya198293

Дата 20.6.2008, 06:47 (ссылка)

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

Загрузка ...

Бывалый

Код


procedure TXXXForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST; // делаем форму самой верхней, т.к. св-во FormStyle(fsStayOnTop) не качественно отрабатывает
end;

а где эту процедуру нужно задействовать?
дописать то дописал, но как сделать чтоб она работала?

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

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

pseud

Дата 20.6.2008, 09:53 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Код


type
  TXXXForm = class(TForm)
  private
  protected
    procedure CreateParams(var Params: TCreateParams); override;
   ...

Это сообщение отредактировал(а) pseud - 20.6.2008, 09:54

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

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