[delphi_begin]

Всем добрый день!

Есть приложение с MDI формами.
На главной форме есть Label, который выводит результат некоего запроса.

Мне нужно, чтобы запрос повторялся, а Label обновлялся как можно чаще. Но без помощи таймера.
Я решил, что было бы неплохо выполнять запрос и обновлять Label всякий раз, когда главная форма получает фокус.

Соответственно вопрос! Как отловить событие получения формой фокуса?

OnShow и OnActivate отпадают, т.к. главная форма никогда не прячется, а всегда открыта на фоне других MDI форм.

Заранее, спасибо!

[NumLock]

у TApplicationEvents событие OnActivate

[delphi_begin]

Это событие реагирует на приложение в целом. А мне нужен только фокус формы.

[Uniq!]

Сообщение от delphi_begin

когда главная форма получает фокус.
главная форма никогда не прячется

вы противоречите сами себе

[NumLock]

когда форма получает фокус приложение просто обязано его иметь. ТЗ немного напутано.

[lmikle]

Не получит главная форма фокус в MDI приложении (ну за исключением случая, когда идет переключение между приложениями). Я в свое время просто "повесил" отдельный поток, который запускался автоматически при старте приложения и сам обновлял информацию в метке раз в 10 минут (такое ТЗ было, 10 минутного интервала было достаточно). Что-то типа такого:

Код:

// Поток
type
  TInfoUpdateThread = class(TThread)
  private
    FInfo : String;
    procedure UpdateLabel;
  protected
    procedure Execute; override;
  end;

procedure TInfoUpdateThread.UpdateLabel;
begin
  MainForm.lbInfo.Caption := FInfo;
end;

procedure TInfoUpdateThread.Execute;
begin
  While not Terminated Do
    Begin
      // Здесь твой запрос
      FInfo := TimeToStr(Time);

      // Обновляем метку
      Synchronize(UpdateLabel);

      // Пауза
      Sleep(60000); // Sleep for 1 min
    End;
end;

// Главная форма
type
  TMainForm = class(TForm)
  private
    FInfoThread : TInfoUpdateThread
  ...

procedure TMainForm.OnCreate(Sender : TObject);
begin
  FInfoThread := TInfoUpdateThread.Create(True);
  FInfoThread.FreeOnTerminate := True;
  FInfoThreaf.Resume;
end;

procedure TMainForm.OnDestroy(Sender : TObject);
begin
  FInfoThread.Terminate;
  FInfoThread.WaitFor;
end;

[delphi_begin]

А не проще ли сделать тоже самое через таймер? Он же тоже создает отдельный поток? Или есть разница в нагрузке на приложение?

[delphi_begin]

Сообщение от Uniq!

вы противоречите сами себе

Сори, возможно, я не так описал... Но задача такая: выполнять определенную процедуру когда кроме главной формы ничего не открыто. Но так, что бы это было событие, т.е. отслеживалось системой.

[delphi_begin]

Сообщение от NumLock

когда форма получает фокус приложение просто обязано его иметь. ТЗ немного напутано.

А когда форма получает фокус, кроме того раза, когда показывается в первый раз и между переключениями между приложениями?

[NumLock]

Сообщение от delphi_begin

А когда форма получает фокус, кроме того раза, когда показывается в первый раз и между переключениями между приложениями?

не вижу в этом проблемы

[lmikle]

Сообщение от delphi_begin

А не проще ли сделать тоже самое через таймер? Он же тоже создает отдельный поток? Или есть разница в нагрузке на приложение?

Нет, таймер не создает отдельного потока. Все выполняется в основном потоке. Поэтому, если запрос, который надо выполнить, долгий или тяжелый, его надо выносить в самостоятельный поток. Кстати, если очень уж нужно, то можно дополнительно после обновления метки "кидать" какое-либо сообщение в главную форму приложения и уже там его обрабатывать для дополнительный действий В ГЛАВНОМ потоке приложения,