u_rectime.pas

来自「这是一个60吨地磅称量系统」· PAS 代码 · 共 60 行

unit U_RecTime;

interface

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

type
  TF_RecTime = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    procedure ComboBox1DropDown(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_RecTime: TF_RecTime;

implementation

{$R *.dfm}

procedure TF_RecTime.ComboBox1DropDown(Sender: TObject);
       var List:TstringList;
          i:integer;
begin

        ComboBox1.clear;
      List:=Tstringlist.Create;
   with List do
   begin
      Add('1');
      Add('2');
      Add('3');
      Add('4');
      Add('5');
      Add('6');
      Add('7');
      Add('8');
      Add('9');
      Add('10');
       ComboBox1.items := List;

        end;

        end;

procedure TF_RecTime.Button1Click(Sender: TObject);
begin
   close;
end;

end.