
03.05.2009, 16:13
|
Активный
|
|
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
|
|
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize := HideForm;
end;
procedure TForm1.HideForm(Sender: TObject);
begin
Form1.Hide;
end;
Вы об этом??
|