TForm

← →
gestern (2004-01-01 17:12) [0]

Вопрос простой. Как сделать так что-бы форма не закрывалась Alt+F4

← →
Intell (2004-01-01 17:44) [1]

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;

← →
Intell (2004-01-01 17:44) [2]

← →
raidan (2004-01-01 20:05) [3]

А если хочешь, чтобы форма закрывалась только если нажата кнопка какая-нить (tbutton или еще что-нибудь), то проще поставить обработчик на OnCloseQuery.

var allowCloseForm:boolean;
В form.oncreate установить allowCloseForm:=false;
В tbutton.onclick установить allowCloseForm:=true;

В tform.onclosequery: if allowCloseForm then canClose:=true else canClose:=false;

← →
Номолос (2004-01-01 22:28) [4]

Внимание! KeyPreview крупно глючит под XP!

← →
mike-d (2004-01-02 12:00) [5]

Компонент TActionList. Добавляешь к нему один TAction (Action1) и назначаешь ему ShortCut = Alt+F4. Делаешь обработчик:

procedure TForm1.Action1Execute(Sender: TObject);
begin
ShowMessage("А вот фигушки!");
end;

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