Загадка программерам

[JiF]

Есть у нас форма. Hа форме две радиокнопки: rbOn и rbOff. Также есть
таймер: Timer1. Больше ничего нету.

Код:

procedure TForm1.rbOnClick(Sender: TObject);
begin
Timer1.Enabled := true;
end;

procedure TForm1.rbOffClick(Sender: TObject);
begin
Timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
rbOff.Checked := true;
MessageBox(Handle, 'Prosto tak', nil, 0);
end;

Изначально Таймер выключен, помечена rbOff.

Что будет, если включить rbOn? По идее, она запустит таймер, через
секунду событие таймера начнет выполняться - включится rbOff, таймер
будет остановлен, выведется текстовое сообщение. Система придет в
начальное состояние.

А на самом деле не так
ЗЫ:http://piter.pechora.org/other/Zagadka.zip (1 KByte) - только вы сначала подумайте, а потом в ответы смотрите
ЗЫЫ я отгадал с первого раза. :cool: ... ответ дам потом...

[SpeculAt0r]

По-моему, rbOff пометится, но таймер не остановится, ведь процедура сделана на нажатие по rbOff. Ответ пока не смотрел.

[JiF]

событие ОнКлик происходит при пометке... так что ответ не верный

[s4SSn]

будут вываливаться messagebox'ы пока ты процесс не заврешишь.. ну или система повснет от этого бесконечнооо цикла... имхо...

[JiF]

хых.... цикл почти не бесконечный => ответ неверен

[s4SSn]

MessageBox(Handle, 'Prosto tak', nil, 0);

==
что означают параметры Handle, nil и 0??
а check равносилен click??
а если в то время, когда таймер выполняется задать timer.enabled:=true, то его выполение начнется заново или пофик??

[JiF]

Что такое Handle ? у-у-у .... это дескриптор или как его там по научному (в моем мозгу просто хендл) окна, nil - пустой параметр , не помню на что он влияет у Мессадж бокса, 0 - тип МессаджБокса....
===
Всё это никоем образом не влияет на саму суть ....

чек НЕ равносилен клику - как можно сравнивать свойство с событием ума не приложу ...

насчет timer.enabled - гон, то есть всё также и будет .... смысла нету писать лишнее...

[s4SSn]

Что такое Handle ? у-у-у .... это дескриптор или как его там по научному (в моем мозгу просто хендл) окна, nil - пустой параметр , не помню на что он влияет у Мессадж бокса, 0 - тип МессаджБокса....
===
Всё это никоем образом не влияет на саму суть ....

чек НЕ равносилен клику - как можно сравнивать свойство с событием ума не приложу ...

насчет timer.enabled - гон, то есть всё также и будет .... смысла нету писать лишнее...

ну уж звиняйте дяденька... мы web-кодеры вас системных программистов... не совсем в струю вливаемся....
ЗЫ: имхо ваще ничего не должно выводится... никаких сообщений. как он off включит, так таймер и завешится...

[JiF]

ну уж звиняйте дяденька... мы web-кодеры вас системных программистов... не совсем в струю вливаемся....
ЗЫ: имхо ваще ничего не должно выводится... никаких сообщений. как он off включит, так таймер и завешится...

Извиняем...
ЗЫ: Скачай эти чертовы 1,4 Кб и .... там увиишь...

[s4SSn]

Извиняем...
ЗЫ: Скачай эти чертовы 1,4 Кб и .... там увиишь...

ага... инет тратить, а потом еще и делфю ставить??? неееееет... я уж лучше ответов подожду тут...

[JiF]

Оффтопик

хы... а ещё модератор раздела про кодинг... даж делфи нет...

[s4SSn]

Оффтопик

хы... а ещё модератор раздела про кодинг... даж делфи нет...

ну так я же говорю... чтоб web кодер... php... щас потихоньку perl...
а ваще paskal хорошо... так что делфи знаю тока по тому, что знаю в паскале... и по тому, что методом тыка определил... просто нет желания вдаваться в системное программирование...

[JiF]

Оффтопик

От хендлов до системного программирования как до парижа пешком.... PS : PasCal ...

Да знаю что pasCal... - а шо пишешь pasKal ?
Дык пишется... ну так получается, меня уже информатичка сто раз ругала... говорит, нефиг перед людьми позоритя... а у меня все равно так пишется... эх...нечАЙно...

[Vanda]

Ответ еще не смотрела, но по логике так: при запуске таймера rbOff пометится, и каждую секунду будут выводиться сообщения, до тех пор, пока не щелкните на rbOff, т.к. остановка таймера происходит именно при событии Click, а изменение свойств радиокнопки не подтверждает нужное событие.

[JiF]

Ответ еще не смотрела, но по логике так: при запуске таймера rbOff пометится, и каждую секунду будут выводиться сообщения, до тех пор, пока не щелкните на rbOff, т.к. остановка таймера происходит именно при событии Click, а изменение свойств радиокнопки не подтверждает нужное событие.

не-а.....
Ладно не буду вас мучить ... качайте исходник, у кого инета нету, или копеек жалко, делаем так :
пускаем делфю, бросаем таймер и два TRadioButton , пишем код (см первый пост) ... и компилим. (главное условие, чтобы RadioButtonы находились на одном контроле !)
И что же мы видим ? А вот: как только нажмем на rbOn, запуститься таймер, выдаст сообщение..... всё.... то есть никаких бесконечных сообщений не будет ! при нажатии на кнопку мессаги, снова пометиться rbOn , и теперь уже пойдет бесконечный цикл, в котором придется жать кнопку мессадж бокса .... если не понятно объяснил, скачайте (или сами накодьте) эту прогу и посмотрите!
И кто как думает, почему это происходит? Подсказка : это не глюк

[Vanda]

ээээээ....наверное, я неточно выразила свою мысль. Что ж, дополню: когда выдается сообщение, работа приложения приостанавливается, и, естесственно, других сообщений никаких не будет до тех пор, пока мы не закроем данное. Это верно?:rolleyes:

[JiF]

Это верно.... но тут главное само действие радиобаттонов - фокус с месадж бокса передается rbOn и соответственно вызывается событие onclick, пускающий таймер.