Запрет на закрытие формы

[Хамяг]

Как можно сделать окно не закрываемым? т.е. чтобы кнопка закрытия была "прозрачной" и нажать на неё было нельзя (во многих приложениях есть такая фишка). Как её релизовать?

[maladoy]

в обработчике события OnClose формы:
procedure Form1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action :=caNone;
end;

[Хамяг]

maladoy нет. вы меня не совсем поняли. Ведь с помощью вашего дейстаия можно лишь блокировать закрытие! А мне надо именно отключить кнопку закрытия (т.е. чтобы она была видна, но ни при наведении, ни при нажатии ничего не было). Например, такая вишка есть при записывании дисков некоторыми программами, установке офиса 2007...

[Sota]

А может эту кнопку просто убрать?

[Terran]

Сообщение от Хамяг

Как можно сделать окно не закрываемым? т.е. чтобы кнопка закрытия была "прозрачной" и нажать на неё было нельзя (во многих приложениях есть такая фишка). Как её релизовать?

Можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Var
SysMenu: HMenu;
Begin
SysMenu:=GetSystemMenu(Handle,False);
Windows.EnableMenuItem(SysMenu,SC_CLOSE,MF_DISABLED Or MF_GRAYED);
End;

[mas00777]

Подскажите пож как можно сделать чтобы допустим как в экселе нажимаеш закрыть а прога бы спрашивала сохранить или нет?

[_Dmitry]

Обработчик события OnClose для формы

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Application.MessageBox('Сохранить?','Внимание',mb_YesNo+mb_IconExclamation) = idYes then
    begin
      //здесь сохраняем что нужно
    end;
end;

[KORN]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('выйти?','Вн имание',mb_YesNo+mb_IconExclamation ) = idNO then
begin
abort; // и прога не выходит
end;
end;

[mas00777]

Ну да только я пробовал так

if Application.MessageBox('Сохранить?' ,'Внимание',mb_YesNoCancel+mb_IconE xclamation)=
idcancel then
begin
form1.Show; // и прога проста вылетает окно не открываеться
end;
end;
end.

[mas00777]

KORN Ты случайно не спробелом это запускал у тебя написанно ('выйти?','Внимание',mb_YesN o+mb_IconExclamation) а так все работает