Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];

Вниз

Как незакрыть форму по 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.05 c
2-1170336039
Lera
2007-02-01 16:20
2007.02.18
Наличие файла


2-1169990981
dasha
2007-01-28 16:29
2007.02.18
почему Opendialog "тормозит" программу


2-1170086679
Patrick
2007-01-29 19:04
2007.02.18
Нулевое время


15-1169885826
Jenny
2007-01-27 11:17
2007.02.18
Что за компонент ?


2-1170134129
MASTAFA
2007-01-30 08:15
2007.02.18
Вопрос по связи MathCad и Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский