• 主页
  • 招聘
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API

一个非常简单的问题！！

nanoo 2005-03-20 05:46:42
想请问各位大侠：
我在RadioGroup中放置了两个RadioButton控件，初始化时RadioGroup1.ItemIndex=-1,问题是我在
RadioButton1.click中进行了如下操作：RadioGroup1.ItemIndex=0（以次做条件控制程序流程）；可我发现程序在运行时并没有按我的条件运行，不知是何原因？？？？
...全文
30 点赞 收藏 1
写回复
1 条回复
落伍的小农 2005年03月20日
看看DELPHI有关ItemIndex的帮助吧！
你不能对ItemIndex赋值的。
因为ItemIndex是RadioGroup中指出你选择RadioButton的Index。-1表示没选任何按钮，0是第一个按钮。不用你自己赋值。但前提是里面的RadioButton是通过RadioGroup的Items属性加的。
而你是在RadioGroup中放置了两个RadioButton控件，不是设置RadioGroup的Items加的RadioButton。你不能对ItemIndex赋值的。看看帮助的例子：
procedure TForm1.FormCreate(Sender: TObject);

begin
RadioGroup1.Items.Add('Vertical');
RadioGroup1.Items.Add('Horizontal');
RadioGroup1.ItemIndex := 2;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin
if RadioGroup1.Items[RadioGroup1.ItemIndex] = 'Vertical' then
ScrollBar1.Kind := sbVertical;
if RadioGroup1.Items[RadioGroup1.ItemIndex] = 'Horizontal' then
ScrollBar1.Kind := sbHorizontal;

end;


 回复 点赞
发动态
发帖子
Delphi
创建于2007-08-02

1467

社区成员

26.2w+

社区内容

Delphi 开发及应用
社区公告
暂无公告