Советы по Delphi

         

Закрытие приложения при его деактивации


Попробуйте следующий код:

    procedure TForm1.AppDeactivate(Sender: TObject);
begin
close; end;

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

[001727]



Содержание раздела