Как такое сделали с окном

[psycho-coder]

Сообщение от Пепел Феникса

если не ошибаюсь то событие OnExit формы

Да, да, да! OnExit - генерируется при потере фокуса на ввод, а OnEnter соответственно на получение фокуса.

[Shouldercannon]

Как воспользоваться OnExit а данном случае?

[Пепел Феникса]

hide наверно надо, раз как в квипе смайлы

Application.OnIdle

проц обычно грузит ппц как

[Roof]

Не знам как OnExit в данном случае имелось ввиду. Во что я решил:
1) использовать Application.OnDeactivate - возникает при переключении на другое приложение Windows (допустим, щелчок по рабочему столу)

2) для Form2 использовать простое OnDeactivate


Unit1:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure HideMyForm(Sender: TObject);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnDeactivate := HideMyForm;
end;

procedure TForm1.HideMyForm(Sender: TObject);
begin
  if Form2.Showing then
    Form2.Hide;

end;

end.

Unit2:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    procedure FormDeactivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}



procedure TForm2.FormDeactivate(Sender: TObject);
begin
  Form2.Hide;
end;

end.

Думаю это более рациональное решение, чем предоставленное мною в прошлый раз. И еще тут как и в qip Form2 исчезает сразу при OnMouseDown на Form1, а не при OnMouseUp, как в прошлом решении ))))