zoukankan      html  css  js  c++  java
  • Delphi RadioGroup 组件基本用法

    1. RadioGroup的主要属性

    (1) Columns:属性

    属性 Columns:用于设置单选按钮组中按钮的列数。范围1~16默认值为1。

     

    设置方法很简单,充分提现了Delphi的强大功能和方便,只要设置RadioGroup组件的Columns列属性为1就是竖向显示,为2就是横向显示。也就是说你的Items有几个就设置几列,如下图:

    (2) Items属性:用于设置各种单选按钮标题。

    (3) ItemIndex:属性:单选按钮组中被选中按钮

    (从0开始)的序号。默认值为-1,表示组中按钮均未被选中。

    //设置按钮的cursor效果

    procedure TForm1.FormCreate(Sender: TObject);

    var

      I: Integer;

    begin

      with radiogroup1 do

      begin

        for I := 0 to ControlCount - 1 do

          Buttons[I].Cursor := crHandPoint;

      end;

    end;

     

     
    //获取 RadioGroup 项目名称
    procedure TForm1.RadioGroup1Click(Sender: TObject);
    begin
      Edit1.text := RadioGroup1.Items[RadioGroup1.ItemIndex];
    end;
     
    //当点击 RadioGroup 中的第几个选项时...
    procedure TForm1.RadioGroup1Click(Sender: TObject);
    var
      str: string;
    begin
      case RadioGroup1.ItemIndex of
        0: str := 'one';
        1: str := 'two';
        2: str := 'three';
        3: str := 'four';
      end; 
      Edit1.text := str;
    end;
     
    //delphi读取RadioGroup选中按钮的string文本
    procedure TForm1.RadioGroup1Click(Sender: TObject);
    begin
      ShowMessage('['+inttostr(RadioGroup1.ItemIndex)+']'+
          RadioGroup1.Items[RadioGroup1.ItemIndex]);
    end;
     
     //获取 RadioGroup 项目名称
    procedure TForm1.RadioGroup1Click(Sender: TObject);
    begin
      Text := RadioGroup1.Items[RadioGroup1.ItemIndex];
    end;
     
    //当点击 RadioGroup 中的第几个选项时...
    procedure TForm1.RadioGroup1Click(Sender: TObject);
    var
      str: string;
    begin
      case RadioGroup1.ItemIndex of
        0: str := 'one';
        1: str := 'two';
        2: str := 'three';
        3: str := 'four';
      end;
     
      Text := str;
    end;
    好的代码像粥一样,都是用时间熬出来的
  • 相关阅读:
    selenium 设置等待时间
    mac下配置python+selenium+chrome环境
    自定义filter
    urllib登录的cookie复制到headers,模拟登录人人网
    urllib中的保存cookie使用,运用cookiejar来模拟登录人人网
    urllib中的cookie使用,四种方法
    urllib中的https使用,导入ssl模块
    urllib判断重定向
    urllib中的down,下载百度图片为例
    urllib中的本地代理设置
  • 原文地址:https://www.cnblogs.com/jijm123/p/14237063.html
Copyright © 2011-2022 走看看