unit1.~pas

来自「DELPHI 串口程序 小程序 我个人做的想程序给大家看看」· ~PAS 代码 · 共 50 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var Max,i:integer;
begin
  Max:=1;
  SCrollBar1.Position:=0;
  for i:=1 to Max do
  begin
      while ScrollBar1.Position < ScrollBar1.Max do
      begin
         ScrollBar1.Position :=ScrollBar1.Position+1;
         SLeep(10);
         SCrollBar1.Update;
      end;
      while ScrollBar1.Position > ScrollBar1.Min do
      begin
          ScrollBar1.Position :=ScrollBar1.Position-1;
          sleep(10);
          SCrollBar1.Update;
      end;
  end;
end;

end.