VPF::Создать (показать) не активную форму

Gnusss

Дата 23.11.2005, 09:21 (ссылка)

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

Загрузка ...

Бывалый

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

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

Привет всем!

Есть такая проблема: При показе формы(AForm.Show), форма которую я показываю становиться активной. Как можно сделать так чтобы форма, которую я показываю, не становилась активной, а активной оставалась форма, которая и была?

Заранее спасибо за ответ!
Добавлено @ 09:26
И еще когда я изменяю FormStyle, форма тоже становится активной, как этого избежать?

~FoX~

Дата 23.11.2005, 09:29 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Self.SetFocus;
//  Form1.Button1.SetFocus; // Или так
end;

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

…множественность никогда не следует полагать без необходимости…

Alexeis

Дата 23.11.2005, 09:45 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

или так

FocusControl(другая форма или контрол);

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Gnusss

Дата 23.11.2005, 09:46 (ссылка)

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

Загрузка ...

Бывалый

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

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

А если заранее не известно, какая форма активна в данный момент.
И все ровно же на короткий период времени форма становится не активной, это плохо.

Rennigth

Дата 23.11.2005, 10:26 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Gnusss @ 23.11.2005, 09:46)

на короткий период времени форма становится не активной

ни кто и никогда не заметит этот короткий промежуток времени smile

Цитата(Gnusss @ 23.11.2005, 09:46)

А если заранее не известно, какая форма активна в данный момент.

должно помочь:

Код


var
  lHandle: THandle;
begin
  lHandle :=  GetActiveWindow; 
  Form2.Show;
  windows.SetFocus(lHandle);
end;

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

(* Honesta mors turpi vita potior *)

~FoX~

Дата 23.11.2005, 11:00 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Цитата(Gnusss @ 23.11.2005, 10:46)

А если заранее не известно, какая форма активна в данный момент.

Цитата

Self.SetFocus;

- Вернет вокус объекту вызвавшему окно.

Поставь у вызывающей форму FormStyle := fsStayOnTop

Опиши по подробней зачем теде это понадобилось?

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

…множественность никогда не следует полагать без необходимости…

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