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

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

Delphi控件源码

开发平台：

Delphi

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ComCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     ListBox1: TListBox;
  12.     Button1: TButton;
  13.     Edit1: TEdit;
  14.     Button2: TButton;
  15.     ComboBox1: TComboBox;
  16.     TreeView1: TTreeView;
  17.     procedure Button1Click(Sender: TObject);
  18.     procedure Button2Click(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure TreeView1Click(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  27. var
  28.   Form1: TForm1;
  30. implementation
  32. {$R *.dfm}
  34. procedure TForm1.Button1Click(Sender: TObject);
  35. begin
  36.       ListBox1.Items.Add(edit1.Text);   //使用Add方法向列表框增加项目
  37.       //ListBox1.Items.Add('北京');
  38.       //ListBox1.Items.Add('河北');
  39.       //ListBox1.Items.Add('河南');
  40. end;
  42. procedure TForm1.Button2Click(Sender: TObject);
  43. begin
  44.     ListBox1.Items.Delete (ListBox1.ItemIndex)
  45.     //ListBox1.Clear
  46. end;
  48. procedure TForm1.FormCreate(Sender: TObject);
  49. begin
  50.      ListBox1.Items.Add('山西');   //使用Add方法向列表框增加项目
  51.       ListBox1.Items.Add('北京');
  52.       ListBox1.Items.Add('河北');
  53.       ListBox1.Items.Add('河南');
  54.       ListBox1.Items.Add('湖南');
  55.     ListBox1.Items.Add('内蒙古');
  57. end;
  59. procedure TForm1.TreeView1Click(Sender: TObject);
  60. begin
  61.        edit1.Text:=TreeView1. Selected.Text;
  62.        //if TreeView1.items[1].Selected then edit1.Text:=TreeView1.items[1].Text
  63.        //else if  TreeView1.items[2].Selected then edit1.Text:=TreeView1.items[2].Text
  64. end;
  66. end.