rei_38.pas

来自「Delphi经典游戏程序设计40例.pdf 中国铁道出版社出版 含源码」· PAS 代码 · 共 30 行

unit Rei_38;

interface

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

type
  TRei40_38 = class(TForm)
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    Panel1: TPanel;
    Panel2: TPanel;
    Memo1: TMemo;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Citem(Sender: TObject);
    procedure Sitem(Sender: TObject);
  private
    { Private