Текущий архив: 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.014 c
