Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

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]

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;


 
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;



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

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
14-49686
Alex_x
2003-12-26 12:33
2004.01.16
TurboPower


4-49801
_Andrew_
2003-11-10 16:04
2004.01.16
Загрузка файла из ресурса


14-49726
Style
2003-12-22 21:02
2004.01.16
Народ а почему мелкософт не хочет переписать GUI


1-49542
Magician
2004-01-02 11:03
2004.01.16
Как найти значек, с которым ассоциирован данный файл.


1-49535
Пубертанец
2004-01-06 11:24
2004.01.16
Что такое class function?