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

как запретить форме закрываться по Alt-F4 ?   Найти похожие ветки 

← →
billybons ©   (2002-09-05 15:51) [0]

помогите плз

---

← →
Виктор Щербаков ©   (2002-09-05 15:56) [1]

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

---

← →
lenin ©   (2002-09-05 15:56) [2]

в OnCloseQuery
CanClose:=false;

---

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

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



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