Не срабатывает OnActivate у формы

[SolovejK]

Ни в какую не хочет работать этот код. Реакция программы просто нулевая, ничего не происходит

procedure TMain.FormActivate(Sender: TObject);
begin
  ExcelApplication1.Workbooks[1].Activate(lcid);//делает активной нужную мне книгу Excel
end;

А здесь работает без проблем:

procedure TMain.FormClick(Sender: TObject);
begin
  ExcelApplication1.Workbooks[1].Activate(lcid);
end;

В чем может быть проблема?

PS: Работаю с Delphi 2006

[noxin]

А кроме этого ещё описана где-нибудь работа exel, или только эта строчка?

[SolovejK]

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

[noxin]

а что мешает сразу после открытия exel делать это, или я что-то не так понял?

[SolovejK]

В том то и дело что во время работы программы приходится открывать разные файлы Excel и работать с ними. Программа должна обращаться именно в свой первоначально открытый документ. При получении фокуса программа начинает читать данные с активного в данный момент Excel документа вот и приходится либо руками активировать нужный документ, либо программно.

[Volt]

Данное событие FormActivate возникает при активации формы если форма одна то оно произойдет только один раз если форма не одна то данное событие будет срабатывать когда вы будете передавать фокус то одной форме то другой. Попробуйте проверять

var
  Form1: TForm1;
  flag:boolean;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Form1.Handle = GetForegroundWindow()then
begin
if flag then
begin
flag:=false;
form1.caption:='Активна';
ExcelApplication1.Workbooks[1].Activate(lcid);
end;
end
else
begin
form1.Caption:='Не активна';
flag:=true;
end;


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
flag:=true;
end;

[Grag]

А вот так не пробовал ?

ExcelApplication1.Workbooks.Item[1].Activate;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор