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

Вниз

Клавиши!!   Найти похожие ветки 

← →
Серега   (2003-03-23 00:14) [0]

Ув. мастера!! Как сделать чтобы программа не закрывалась по Alt+F4.

---

← →
Guerrillero   (2003-03-23 00:50) [1]

обрабатывай событие OnCloseQuery главной формы

---

← →
spogi   (2003-03-23 01:14) [2]

On KeyDown

If (Key = VK_F4) and (ssAlt in Shift) then
Key=#0;

{
ssAlt in Shift
[ssAlt]=Shift
}
//sintaksis ne pomnyu, posmani v help

---

← →
Intell   (2003-03-23 18:06) [3]

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;

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

---

← →
Serega   (2003-03-23 18:32) [4]

Всем спасибо вы мне очень помогли!!!

---

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

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

Наверх

Память: 0.56 MB
Время: 0.026 c