[kokon]

Всем доброго времени суток. есть проект, он сохраняет параметры в реестр. но при загрузке из реестра происходит непонятное... в реестре сохраняется булево значение и потом при активации формы возвращается, но проблема в том, что не выполняется активация таймера хотя CheckBox = Checked.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.FormActivate(Sender: TObject); begin   LoadReg; end;   procedure TForm1.CheckBox3Click(Sender: TObject); begin   if not CheckBox3.Checked then    begin       Form1.AlphaBlend := CheckBox2.Checked;       Form1.AlphaBlendValue := TrackBar1.Position;    end;   tmr3.Enabled := CheckBox3.Checked; //Не выполняется... end;   procedure TForm1.LoadReg; begin   reg := TRegistry.Create;   reg.RootKey := HKEY_CURRENT_USER;   reg.OpenKey('\Software\ClientChat',true);   if reg.ValueExists('TransMouse') then CheckBox3.Checked := reg.ReadBool('TransMouse');   reg.CloseKey;   reg.Free; end;