unit1.pas

一个获取随机数的例子！！非常具有参考价值

Unit Unit1;

Interface

Uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls;

Type
    TForm1 = Class(TForm)
        Image1: TImage;
        Panel1: TPanel;
        Label1: TLabel;
        Edit1: TEdit;
        UpDown1: TUpDown;
    Timer1: TTimer;
    CheckBox1: TCheckBox;
        Procedure UpDown1ChangingEx(Sender: TObject; Var AllowChange: Boolean;
            NewValue: Smallint; Direction: TUpDownDirection);
    procedure Timer1Timer(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    Private
    { Private declarations }
    Public
    { Public declarations }
    End;

Var
    Form1           : TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.UpDown1ChangingEx(Sender: TObject;
    Var AllowChange: Boolean; NewValue: Smallint;
    Direction: TUpDownDirection);
Begin
    Edit1.Text := IntToStr(NewValue) + '%';
    Label1.Caption := Edit1.Text;
    If (NewValue > 0) And (NewValue < 100) Then
        Panel1.Height := (Image1.Height Div 100) * (100 - NewValue) + Label1.Height;
End;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Randomize ;
    UpDown1.Position :=  Random (100);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 Timer1.Enabled := CheckBox1.Checked ;
end;

End.