Главная страница
    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.047 c
15-1169735064
Chort
2007-01-25 17:24
2007.02.18
Стоимость кабеля для Интернет


15-1169458745
optimizer
2007-01-22 12:39
2007.02.18
Оптимизация


1-1167139927
GanibalLector
2006-12-26 16:32
2007.02.18
вложенная структура


2-1169887745
DemonP
2007-01-27 11:49
2007.02.18
отправка почты на Delphi


3-1164605686
Kvinta
2006-11-27 08:34
2007.02.18
DBGrid. Запомнить позицию.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский