开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit1.pas
资源名称：xiaobai.rar　[点击查看]
上传用户：autowell
上传日期：2022-06-21
资源大小：16754k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, jpeg, ExtCtrls, Buttons, ComCtrls, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Edit1: TEdit;
  13.     Label2: TLabel;
  14.     Edit2: TEdit;
  15.     Button1: TButton;
  16.     Button2: TButton;
  17.     BitBtn1: TBitBtn;
  18.     Image1: TImage;
  19.     SpeedButton1: TSpeedButton;
  20.     GroupBox1: TGroupBox;
  21.     RadioButton1: TRadioButton;
  22.     RadioButton2: TRadioButton;
  23.     ListBox1: TListBox;
  24.     Button3: TButton;
  25.     procedure Button3Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   Form1: TForm1;
  35. implementation
  37. {$R *.dfm}
  39. procedure TForm1.Button3Click(Sender: TObject);
  40. begin
  41.       ListBox1.Items.Add('山西');   //使用Add方法向列表框增加项目
  42.       ListBox1.Items.Add('北京');
  43.       ListBox1.Items.Add('河北');
  44.       ListBox1.Items.Add('河南');
  45. end;
  47. end.