zoukankan      html  css  js  c++  java
  • 给定 ComboBox 的默认值

    unit

     Unit1;

    interfaceuses

      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;

    type

      TForm1 = class(TForm)
        ComboBox1: TComboBox;
        Button1: TButton;
        Button2: TButton;   

    procedure

     FormCreate(Sender: TObject);    

    procedure

     Button1Click(Sender: TObject);    

    procedure

     Button2Click(Sender: TObject);  

    end;

    var

      Form1: TForm1;

    implementation{$R *.dfm}procedure

     TForm1.FormCreate(Sender: TObject);

    begin

      ComboBox1.Items.CommaText := 'aaa,bbb,ccc,ddd';

    end;

    procedure

     TForm1.Button1Click(Sender: TObject);

    begin

      ComboBox1.ItemIndex := 1;

    end;

    procedure

     TForm1.Button2Click(Sender: TObject);

    begin

      ComboBox1.ItemIndex := ComboBox1.Items.IndexOf('ccc');

    end;

    end.

    好的代码像粥一样,都是用时间熬出来的
  • 相关阅读:
    Centos下 安装和测试kafka
    Java枚举
    Java 数组
    Java变量
    Java标识符
    Java修饰符
    java 基本语法
    Java 基础语法
    Java开发工具
    JAVA 发展历史
  • 原文地址:https://www.cnblogs.com/jijm123/p/14751953.html
Copyright © 2011-2022 走看看