delphi 怎么样使用公共事件名
procedureTDemo1Form.CheckBoxClick(Sender:TObject);begincase(SenderasTCheckBox).Tagof1...
procedure TDemo1Form.CheckBoxClick(Sender: TObject);
begin
case(Sender as TCheckBox).Tag of
1:Edit1.Visible:=CheckBox1.Checked;
2:Edit2.Visible:=CheckBox2.Checked;
3:Edit3.Visible:=CheckBox3.Checked;
4:Edit4.Visible:=CheckBox4.Checked;
end;
end;
怎么使用啊，运行程序的时候点击CheckBox3，:Edit3没有反应 展开
begin
case(Sender as TCheckBox).Tag of
1:Edit1.Visible:=CheckBox1.Checked;
2:Edit2.Visible:=CheckBox2.Checked;
3:Edit3.Visible:=CheckBox3.Checked;
4:Edit4.Visible:=CheckBox4.Checked;
end;
end;
怎么使用啊，运行程序的时候点击CheckBox3，:Edit3没有反应 展开
1个回答
展开全部
你使用了CheckBox 的Tag属性
而你点击的时候CheckBox
属性是没有变化的
而你点击的时候CheckBox
属性是没有变化的
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
