09.01.2010, 16:29
|
 |
Активный
|
|
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
|
|
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caNone; // caFree - норма.
end; |