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

Вниз

Alt+F4   Найти похожие ветки 

← →
gek   (2002-03-13 07:57) [3]


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

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if bool then
Action:=canone
end;

Попробуй закрой

---

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

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

Наверх

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