| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Народ подскажите как заблокировать Alt+F4 в своей программе. [D5, Win95/98]
Oleg_V © (2002-10-30 12:36:00)зарание спасибо!!!!
Андрей Прокофьев (2002-10-30 14:04:00) [1]2 Song © (30.10.02 14:00)
?!
Просили же только Alt+F4!
Song (2002-10-30 14:00:00) [2]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;
Oleg_v (2002-10-30 12:50:00) [3]и правда работает, как я не допер!!! еще раз спасибо!!!!!!
roadster (2002-10-30 12:43:00) [4]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_F4) and (ssAlt in Shift) then Key:=0;
end;
Alx2 (2002-10-30 12:42:00) [5]>Oleg_V © (30.10.02 12:36)
KeyPreview должно быть равным true
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift=[ssAlt]) and (Key=vk_F4) then Key := 0;
end;
| |
