如何触发 TRadioButton 的OnClick事件
耙子 2002-09-14 10:13:03 bcb5 下面,
我写了简单的代码,2各TRadioButton 、一个TButton 和 2个TMemo.
// RadioButton 1, 2 共同的事件,他们的Tag分别是 0,1以便区分
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
switch (dynamic_cast<TComponent*>(Sender)->Tag)
{
case 0:
Memo2->Color= clInfoBk;
break;
case 1:
Memo2->Color= clWhite;
break;
}
Memo2->Tag= dynamic_cast<TComponent*>(Sender)->Tag;
Memo2->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Memo2->Modified) {
Memo1->Lines->Add(Memo2->Text);
Memo1->Lines->Add("");
Memo2->Clear();
Memo2->Modified= false;
}
if (RadioButton1->Checked)
RadioButton2->OnClick(RadioButton2); // 出错!没有执行到 RadioButton的OnClick事件
else
RadioButton1->Checked= false; // 这么写触发不了 OnClick事件
}
//---------------------------------------------------------------------------
我想在 Button的时间里面出发RadioButton的 OnClick事件;
但是上面写的不行,出错!
大家帮着看看,解释一下。
我吃饭去了,一会儿回来……