Скачать: CL | DM;

как отключить в программе нажатие Alt+F4   Найти похожие ветки 

← →
evgeniy33   (2003-09-26 09:24) [0]

Здравстуйте.
Может кто подскажет?

---

← →
dataMaster ©   (2003-09-26 09:30) [1]

FAQ
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622524&n=16

---

← →
AbrosimovA ©   (2003-09-26 12:07) [2]

Зачем писать код:
procedure TForm1.FormCreate(Sender: TObject);
var Style: Longint;
begin
Style := GetWindowLong(Handle, GWL_STYLE);
SetWindowLong(Handle, GWL_STYLE, Style And Not WS_SYSMENU);
end;
если можно просто установить свойство формы
Form1.BorderIcons:=[];
Да, 3-х кнопок в верхнем углу нет, но ведь программу можно закрыть, нажав правую клавишу мыши на кнопке приложения в панели задач. Там выскакивает такая красивая менюшка, где есть строка:
X Закрыть Alt+F4. Вот её тоже надо удалить.
Это делается следующим образом:

procedure TForm1.FormCreate(Sender: TObject);
var menu: HMENU;
begin
menu:=GetSystemMenu(Application.Handle, False);
DeleteMenu(menu, 3, MF_ByPosition); //Удалить "Закрыть"
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c