плиз, help - Общие вопросы Delphi

RealSHELS · 06.03.2008, 16:56

Как сделать, чтобы мою прогу не можна было закрыть комбинацией ALT+F4.

Noor · 06.03.2008, 17:00

было ...и в Гугле и тут ....
http://programmersforum.ru/showthread.php?t=250
ну или

Код:

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

Air · 06.03.2008, 18:26

А так не проще?

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
end;

Квэнди · 06.03.2008, 20:02

Поиск.
Название темы.
закрыто

06.03.2008, 16:56	#1
RealSHELS Форумчанин Регистрация: 04.03.2008 Сообщений: 176	плиз, help Как сделать, чтобы мою прогу не можна было закрыть комбинацией ALT+F4.

06.03.2008, 17:00	#2
Noor Участник клуба Регистрация: 01.11.2006 Сообщений: 1,051	было ...и в Гугле и тут .... http://programmersforum.ru/showthread.php?t=250 ну или Код: `procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ((ssAlt in Shift) and (Key = VK_F4)) then Key := 0; end;` Последний раз редактировалось Noor; 06.03.2008 в 17:03.

06.03.2008, 18:26	#3
Air Участник клуба Регистрация: 30.04.2007 Сообщений: 1,307	А так не проще? Код: `procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caNone; end;` Всё гениальное - просто!

06.03.2008, 20:02	#4
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Поиск. Название темы. закрыто ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи