rand_0.pas

机械优化设计中的约束随机法

unit rand_0;  //优化算法封面

interface

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

type
  TFormfm = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Image1: TImage;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
//    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
//      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
    i:integer;
  end;

var
  Formfm: TFormfm;

implementation

uses rand_1;

{$R *.DFM}

procedure TFormfm.FormCreate(Sender: TObject);
begin
  SetWindowRgn(handle,CreateEllipticRgn(5,0,width-5,height-5),true);
  i:=0;
  timer2.enabled:= true;
  timer1.enabled:= false;
  show;
end;

procedure TFormfm.Timer1Timer(Sender: TObject);
begin
  Timer2.Enabled := false;
  i := 0;
  timer1.free;
  timer2.free;
  form1.Show;
  form1.sjbl.SetFocus;
end;

procedure TFormfm.Timer2Timer(Sender: TObject); //标题变色
begin
  i := i+1;
  case i of
    1: begin
        label2.Font.color := clGray;
       end;
    2: begin
        label2.Font.color := clSilver;
       end;
    3 : begin
        label2.Font.color := clRed;
       end;
    4 : begin
        label2.Font.color := clLime;
       end;
    5 : begin
        label2.Font.color := clYellow;
       end;
    6 : begin
        label2.Font.color := clBlue;
       end;
    7 : begin
        label2.Font.color := clFuchsia;
       end;
    8: begin
        label2.Font.color := clBlack;
       end;
    9: begin
         timer1.enabled:=true;
         label2.Font.color := clMaroon;
       end;
   10: begin
        label2.Font.color := clGreen;
       end;
   11: begin
        label2.Font.color := clOlive;
       end;
   12: begin
        label2.Font.color := clNavy;
       end;
   13: begin
        label2.Font.color := clPurple;
       end;
   14: begin
        label2.Font.color := clTeal;
       end;
   15: begin
        label2.Font.color := clAqua;
      end;
   16: begin
         i :=1;
       end;
  end;
end;

procedure TFormfm.Image1Click(Sender: TObject);
begin
  timer1.free;
  timer2.free;
  form1.Show;
  form1.sjbl.SetFocus;

end;


end.