Есть у нас форма. 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: ... ответ дам потом...