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

  Чтобы запретить пользователю закрывать форму обычным способом (нажатием на крестик), используйте этот код: 

procedure TForm3.FormCreate(Sender: TObject);
Var
SysMenu: HMenu;
begin
SysMenu:=GetSystemMenu(Handle,False);
Windows.EnableMenuItem(SysMenu,SC_CLOSE,MF_DISABLED Or MF_GRAYED);
end;

Вот и всё, Удачи!



Добавил(а): Denismen Дата: 2014-01-25
Этот сайт суперррр



Добавил(а): ThunderLord Дата: 2014-04-14
А нельзя было так?: procedure TForm1.FormClose(Sender: TObject); begin Action:= caNone; end;


    No results found.
Отменить.