VPF::Как вывести форму, чтобы она была неактивной?

ДЫМ

Дата 25.9.2005, 02:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

Я динамически создаю форму и мне надо показать ее, но чтобы активное окно осталось активным.

Пробовал так

Код


     Form2:=TForm2.Create(Application);
     ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE);

но форма выводится пустая, то есть все контролы на ней не прорисовываются.

В чем дело?

Это сообщение отредактировал(а) ДЫМ - 25.9.2005, 02:16

FRAGNATIC

Дата 25.9.2005, 02:42 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

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

ща код лень на брасывать
но может перед показом формы получить хендл активного окна а затем при помощи SetForegroundWindow вернуть на место его) это из раздела извращений) а так по любому есть какие-то стандартные методы)
ShowWindow(Form2.Handle,SW_SHOWNOACTIVATE); новерное надо в другом месте приминить например))))

Rrader

Дата 25.9.2005, 08:04 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Цитата

В чем дело?

Если главная форма создавалась в невидимом состоянии, её компоненты будут также созданы невидимыми.

Решение:

Код


  Form2 := TForm2.Create(Application);
  ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);
  Form2.Visible := True;

Это сообщение отредактировал(а) Rrader - 25.9.2005, 08:14

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

Let's do this quickly!
Rest in peace, Vit!

ДЫМ

Дата 27.9.2005, 01:11 (ссылка)

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

Загрузка ...

Бывалый

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

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

Rrader

Цитата

Если главная форма создавалась в невидимом состоянии, её компоненты будут также созданы невидимыми.

Блин, а делал Form2.Visible := True перед вызовом ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);

Спасибо.

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