Форум: "Основная";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

Не приходит событие OnActivate   Найти похожие ветки 

← →
atruhin ©   (2007-04-06 09:52) [0]

MDI приложение, при переключении между формами событие OnActivate приходит, но если открыто 2 формы, верхнюю закрываем, то в ту форму которая становится активной событие OnActivate не приходит.
Как отловить данный момент?

---

← →
Loginov Dmitry ©   (2007-04-06 18:11) [1]

TActionList.OnUpdate

---

← →
atruhin ©   (2007-04-06 19:45) [2]

> TActionList

Не нужно мне этого чуда. Нужно стандартными средствами.

---

← →
Loginov Dmitry ©   (2007-04-06 20:02) [3]

А это средство чем тебе не стандартное?

---

← →
{RASkov}   (2007-04-07 03:02) [4]

А точно не "приходит"? Я попробовал - у меня все нормально "приходит".

---

← →
atruhin ©   (2007-04-07 09:08) [5]

> А это средство чем тебе не стандартное?

Ты предлагаешь использовать этот компонент, только для того, чтобы отловить событие,
в принципе к нему не относящиеся.

> А точно не "приходит"?

Точно. Delphi 7 update 1.1.

---

← →
{RASkov}   (2007-04-07 14:43) [6]

unit Unit1; {fsMDIForm}
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ComCtrls, ToolWin;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TForm2.Create(Self) do begin
  Caption:=Name;
  Show;
 end;
end;

end.
--------------------------------------------------------------------------------------

unit Unit2; {fsMDIChild}
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TForm2 = class(TForm)
   procedure FormActivate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation
uses Unit1;
{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
begin
 Form1.Caption:=(Sender as TComponent).Name;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
end;

end.

D7 WinXP SP2 Создаем несколько дочерних форм.....

---

← →
atruhin ©   (2007-04-07 15:44) [7]

Извиняюсь. Создал пустой проект, и правда работает как надо.
Видать у меня где то блокируется. :(
Спасибо за внимание.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.043 c