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]

Ух ты!

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

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