あなたは文脈のないコードを投稿しました。私たちがあなたのためにそれを精神的にデバッグしようとすることを期待してください. 試してみますが、質問をより完全なものにすることを本当に学ぶ必要があります。
私の推測では、投稿しなかったコードのどこかで、ボックスがチェックされているかどうかに基づいて有効化/無効化されており、チェックされていない場合 (画像のように)ClientChk
とHostChk
ボタンが無効になっていると思います。コードを (またはデバッガーを使用して) すばやく調べると、それが問題であるかどうかがすぐにわかります。Enable Remote Mode
ClientChk
HostChk
ところで、コードをいくらか改善することができます(そして、の値に基づいてそれらの有効化/無効化を処理しますEnableRemoteChk
:
ClientChk.Enabled := EnableRemoteChk.Checked;
HostChk.Enabled := ClientChk.Enabled;
if ClientChk.Enabled then
begin
ClientChk.Checked := (i = 1);
HostChk.Checked := (i = 2);
end;