請教各位前輩: 我在 DBRadioGroup 的 click 上面寫了一段程式, 我希望他點了之後馬上生效,但事實並非如此, 我覺得他好像在 onExit 才生效... 程式碼如下: procedure Tfrm_code.DBR_CodeIDClick(Sender: TObject); begin if dstMaster.FieldByName('CodeID').AsString = '03' then Begin lbKind.Visible := true; dbcKind.Visible := true; end else begin lbKind.Visible := false; dbcKind.Visible := false; end; End; 我有試著把判斷式改為 if DBR_CodeID.Buttons[2].Checked Then 或者 if DBR_CodeID.ItemIndex = 2 then 但是都沒辦法在我點了 RedioButton 後馬上生效.. 不知和解? 謝謝!!

您好﹗    將程式碼寫在DBRadioGroup元件的OnChange事件中﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

您好: procedure Tfrm_code.DBR_CodeIDChange(Sender: TObject); begin if dstMaster.FieldByName('CodeID').AsString = '03' then Begin lbKind.Visible := true; dbcKind.Visible := true; end else begin lbKind.Visible := false; dbcKind.Visible := false; end; end; 依樣無效,判斷是我也換成 Button or ItemIndex, 但結果都依樣. 我在 RedioButton 上每個按鈕輪流click , 但只有在 onExit 才有效,我希望是在 onClick 有效... 謝謝!!

procedure Tfrm_code.DBR_CodeIDClick(Sender: TObject);
begin
  if DBR_CodeID.Value = '03' then
  Begin
    lbKind.Visible := true;
    dbcKind.Visible := true;
  end
  else
  begin
    lbKind.Visible := false;
    dbcKind.Visible := false;
  end;
end;

這樣應該可以, 原先的寫法是用 dstMaster.FieldByName('CodeID').AsString 來判斷, 可是 DBR_CodeID 要等到 OnExit 才會將資料異動...

您好: 試過還是不行.. 我在程式一開始的地方加了一行 showmessage(DBR_CodeID.value); 發覺一個現象.. 這個 message 是在我 focus 離開時才show , 不是我在 click 時 show. 我去檢查我的 even ,確實是在 onClick 的地方... 不知何解? 謝謝!!

Sorry! 忘了! 應該改用 OnChange... 不要用 ShowMessage, 當Message Box 出現, Focus 就跑掉了... 如果要看 DBR_CodeID.Value 的值, 可以加個 Break point 或 用 Caption := DBR_CodeID.Value; 觀察 Form 的 Title 有無變化, 你可以去看 Help, 對 Value, Field, 及 Items 的值有詳細解說 To add radio buttons to a TDBRadioGroup, edit the Items property in the Object Inspector. Each string in Items makes a radio button appear in the group box with the string as its caption. When the user selects a radio button, the "Value" of the selected button becomes the contents of the linked field for the current record in the dataset. Specify values for the buttons by editing the Values property in the Object Inspector; the first string in Values corresponds to the first string in Items, and so forth. If no Values strings are set, each button? caption serves as its value.

不好意思，插个花 JuliusChen您好： 小弟试了下，不管将代码写至onClick事件或onChange事件，都能很好的工作。  

这里是测试码
begin
  if DBRadioGroup1.ItemIndex =2 then
    showmessage('checked');
end;

1、if dstMaster.FieldByName('CodeID').AsString = '03' then 您的确定dstMaster中CodeID栏位值定位在等于03吗？默认是dstMaster的第一笔，如果第一笔CodeID栏位值不等于03，那下面的代码也不会执行。 2、建议采用DBRadioGroup1.ItemIndex =2方式。小弟测了没您所说的情况，会不会是您其它事件有干扰到，检查下各属性设置，建议拉一个新Form和DBRadioGroup进行测试？ 3、if DBR_CodeID.Buttons[2].Checked Then 没这种写法吧？ 4、如果还是无法解决，可以放至会员求助区，这样可能会更快的找出问题所在。 ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================