Текущий архив: 2002.11.07;
Скачать: CL | DM;
Вниз
Народ подскажите как заблокировать Alt+F4 в своей программе. Найти похожие ветки
← →
Oleg_V © (2002-10-30 12:36) [0]зарание спасибо!!!!
← →
Alx2 © (2002-10-30 12:42) [1]>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;
← →
roadster (2002-10-30 12:43) [2]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_F4) and (ssAlt in Shift) then Key:=0;
end;
← →
Oleg_v © (2002-10-30 12:50) [3]и правда работает, как я не допер!!! еще раз спасибо!!!!!!
← →
Song © (2002-10-30 14:00) [4]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;
← →
Андрей Прокофьев © (2002-10-30 14:04) [5]2 Song © (30.10.02 14:00)
?!
Просили же только Alt+F4!
Страницы: 1 вся ветка
Текущий архив: 2002.11.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
