VPF::Как узнать активна ли TForm2 - Форум программистов

User

Дата 29.4.2005, 11:41 (ссылка)

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

Загрузка ...

Бывалый

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

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

Как можно узнать какая форма счас активна. Поясню. Я скажем открыл программу. Запустил в ней Form2.ShowModal; Как мне узнать что счас именно эта форма активна. Есть ли какието методы для этого? Свойства Focus неоказалось. Может кто подскажет как?

Archon7th

Дата 29.4.2005, 12:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

FormActivate срабатывает при активации формы

Код


procedure TForm2.FormActivate(Sender: TObject);
begin
  ...
end;

Это сообщение отредактировал(а) Archon7th - 29.4.2005, 12:02

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

CPU not found. Running software emulation.

DEER

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

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

Загрузка ...

Опытный

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

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

по моему так:

Код


if Form1.Active
then ....

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

Poseidon

Дата 29.4.2005, 13:24 (ссылка)

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

Загрузка ...

Delphi developer

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

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

А вот что интересно.

Цитата(User @ 29.4.2005, 11:41)

Как мне узнать что счас именно эта форма активна

именно эта из всех форм проекта или вообще из всех открытых окон (в том числе и других программ). Если второе, то DEER рулит (только if Form2 ...), если первое, то нужно учетсть, что модальная форма всегда наверху, т.е. всегда активна из всех форм проекта (надеюсь понятно что я хотел сказать?)

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Akella

Дата 29.4.2005, 13:54 (ссылка)

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

Загрузка ...

Творец

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

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

Если в системе, то

Код


var
 h:hwnd
begin
  h:=GetForegroundWindow;

в h будет содержаться дискриптор на активное окно в системе в целом

Medved

Дата 30.4.2005, 10:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

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

Посылай сообщения между формами. Хотя чтобы ответить на твой вопрос более точно, надо подробнее узнать зачем именно это тебе нужно.

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

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

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