28.03.2010, 22:59
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
пробуй этот код! должно помочь
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ccc:=1;
Close;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ccc=1 then
CanClose:=true
else
begin
CanClose:=false;
Application.Minimize;
end;
end;
end.
Последний раз редактировалось EndLeSSDre@M; 28.03.2010 в 23:02..
|
|
|