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

Вниз

Как незакрыть форму по ALT+F4?   Найти похожие ветки 

 
Первокласник Вася   (2007-01-27 15:26) [0]

Всем привет!

Хочу, чтобы форму нельзя было закрыть. Вообще.
Перепробовал все что имелось в мозгах.
Вот последний кусочек, что черкнул только щас:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if (key=ord(#115)) and (ssAlt in Shift) then
 form1.Visible:=true;
end;


Подскжите плиз, как можно вообще отменить действие close.
У меня форма на весь экран, а хочется чтобы пока не произошло ороеделенное событие - висела "незакрытой"


 
MsGuns ©   (2007-01-27 15:43) [1]

TForm.OnCloseQuery


 
Первокласник Вася   (2007-01-27 15:46) [2]

Спасибо за помощь, но я что-то не могу понять, как это сделть.
Вставить этот кусок кода не получается.
Покажите пожалуйста на примере. Хотя бы примитивный.


 
Первокласник Вася   (2007-01-27 15:50) [3]

опа! кажется догадался.
достаточно canclose проставить в false!
Работает. Спасибо!!!


 
Юрий Зотов ©   (2007-01-27 16:06) [4]

Хорошая программа получится. Пользователь будет очень рад.


 
AlexanderMS ©   (2007-01-27 17:09) [5]


> Юрий Зотов ©   (27.01.07 16:06) [4]
> Хорошая программа получится. Пользователь будет очень рад.
>


Пользователь будет очень рад, если как-нибудь закроет программу. :)


 
Anatoly Podgoretsky ©   (2007-01-27 19:41) [6]

> AlexanderMS  (27.01.2007 17:09:05)  [5]

А закроет он без проблем, если не ламер.


 
Германн ©   (2007-01-28 02:13) [7]


> Anatoly Podgoretsky ©   (27.01.07 19:41) [6]
>
> > AlexanderMS  (27.01.2007 17:09:05)  [5]
>
> А закроет он без проблем, если не ламер.
>

А особенно счасливым будет сисадмин, у которого под присмотром десятки, если не сотни ламеров:)


 
Anatoly Podgoretsky ©   (2007-01-28 12:52) [8]

> Германн  (28.01.2007 02:13:07)  [7]

Сисадмин такой дуростью не занимается, это проерогатива программистов. Сисадмин полностью солидарен с пользователями или ему надо менять профессию, это я тебе как профессионал говорю.


 
Германн ©   (2007-01-29 02:11) [9]


> Anatoly Podgoretsky ©   (28.01.07 12:52) [8]
>
> > Германн  (28.01.2007 02:13:07)  [7]
>
> Сисадмин такой дуростью не занимается, это проерогатива
> программистов. Сисадмин полностью солидарен с пользователями
> или ему надо менять профессию, это я тебе как профессионал
> говорю.
>

Не Анатолий. Я наверно плохо сформулировал свою мысль. Поэтому и не был понят :(
Я имел в виду пост [4], когда постил свой [7]. И имел в виду твой пост [6].
Но должен сказать, что "грамотного" сисадмина я в своей практике встречал только однажды. (Есс-но я говорю про реал)


 
GrayFace ©   (2007-01-29 13:29) [10]

Видимо, "неубиваемая" форма призвана повергнуть в шок местную училку, или другого Васю-сотоварища по несчастью (Первокласник все-таки - впереди еще по меньшей мере 10 лет форменного несчастья).



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

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

Наверх




Память: 0.49 MB
Время: 0.056 c
15-1169523391
Slider007
2007-01-23 06:36
2007.02.18
С днем рождения ! 23 января


15-1169022126
infom
2007-01-17 11:22
2007.02.18
Реляционная БД и ООП


15-1169679314
hmmmmmmmm
2007-01-25 01:55
2007.02.18
плата клика adSense


2-1170176412
NikNet
2007-01-30 20:00
2007.02.18
Фильтровать поле, Без разницы на SQL или на DELPHI


1-1167139043
DelphiLexx
2006-12-26 16:17
2007.02.18
Присоединить статическую библиотеку *.lib