Текущий архив: 2002.09.12;
Скачать: CL | DM;

Вниз

Закрытие   Найти похожие ветки 

← →
M@k   (2002-08-20 15:00) [0]

Подскажите, Господа, как сделать,чтобы прога не закрывалась по
Alt+F4

---

← →
Neox ©   (2002-08-20 15:07) [1]

Неужели так лень посмотреть на ЭТОЙ ЖЕ странице???
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1029837169&n=3

---

← →
sudiv ©   (2002-08-20 15:08) [2]

Как запретить кнопку Close [x] в заголовке окна и закрытие по Alt+F4.
Не мое, нашел где-то. И вам так же бы надо, вопрос-то простой.

procedure TForm1.FormCreate(Sender: TObject);
var Style: Longint;
begin
Style := GetWindowLong(Handle, GWL_STYLE);
SetWindowLong(Handle, GWL_STYLE, Style And Not WS_SYSMENU);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in Shift) then begin
MessageBeep(0); Key := 0;
end;
end;


---

Страницы: 1 вся ветка

Текущий архив: 2002.09.12;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.018 c