Форум: "Потрепаться";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];

Вниз

Help   Найти похожие ветки 

← →
MelkoSoft   (2002-08-20 13:52) [0]

Люди, помогите пожалуйста.
Я чайник в делфе. Подскажите плиз, как зделать, что бы по ALT-F4 окно не закрывалось, то есть вообще не подавало ни какой реакции
Заранее благодарен.

---

← →
France   (2002-08-20 13:55) [1]

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

---

← →
DiamondShark   (2002-08-20 14:39) [2]

А вот и нифига не так. А вот так

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
CanClose := false;
end;

---

← →
RV   (2002-08-20 14:45) [3]

конкретно по алт Ф4

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

---

← →
Просто мальчик   (2002-08-20 15:15) [4]

> DiamondShark © (20.08.02 14:39)
Это тоже хорошо, но теперь попробуй рестарт винды заделать!

---

← →
France   (2002-08-20 15:19) [5]

Ух ты!

---

← →
AL2002   (2002-08-20 16:32) [6]

Выдрать клавиши Альт и F4.

---

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

Форум: "Потрепаться";
Текущий архив: 2002.09.16;
Скачать: [xml.tar.bz2];

Наверх

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