人员管理卡一

unit UCommon;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, Buttons, ToolWin, ComCtrls, ImgList,  ActnList, Menus, jpeg;type  TForm_Common = class(TForm)    Edit1: TEdit;    Label1: TLabel;    Label2: TLabel;    Edit2: TEdit;    ComboBox1: TComboBox;    Label3: TLabel;    Label4: TLabel;    ListBox1: TListBox;    Memo1: TMemo;    Label5: TLabel;    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form_Common: TForm_Common;implementation{$R *.dfm}procedure TForm_Common.FormCreate(Sender: TObject);begin  //编辑框中的文本  Edit1.Text :='0';  Edit2.Text :='0';  //设置组合框的风格为下拉列表，不允许用户编辑文本  Combobox1.Style := csDropDownList;  //设置组合框的初始项  Combobox1.ItemIndex :=0;  //设置列表框的初始选项  ListBox1.ItemIndex :=0;  //设置多行编辑组件的滚动条  Memo1.ScrollBars :=ssVertical ;  Memo1.Text :='';end;end.