Главная страница
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.031 c
3-49424
elshad_s
2003-12-17 17:34
2004.01.16
Не выполняется весь набор операций в транзакции


6-49656
Timerman
2003-11-10 23:10
2004.01.16
Как синхронизировать время с локалкой?


1-49532
~GaMeRd~
2003-12-28 14:37
2004.01.16
Шрифты


1-49533
Timer
2004-01-02 13:07
2004.01.16
Delphi и Word


14-49706
SoS
2003-12-25 15:12
2004.01.16
Народ, а есть ли декомпилятор способный вытащить 100% кода?