mainfrm.~pas

来自「关于利用DELPHI来进行企业级方案解决的著作的附书源码」· ~PAS 代码 · 共 67 行

unit MainFrm;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Randomchar: Char;
  
implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=Ord(RandomChar) then
  Form1.Color:=clGreen
 else
  Form1.Color:=clRed;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 Form1.Caption:='edit';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 RandomChar:=chr(Random(25)+65);
 Label1.Caption:=RandomChar;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Form1.Color:=clBtnFace;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Close;
end;

end.