unit1.pas

DELPHI经典程序

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  RadioButton6.Checked:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioButton1.Checked or RadioButton2.Checked or RadioButton3.Checked then
    if RadioButton1.Checked then
      ShowMessage('功力还差了一点！')
    else
      if RadioButton2.Checked then
        ShowMessage('答对了！')
      else
        ShowMessage('悟空也可算地球人啦！')
  else
    ShowMessage('尚未选择哦！');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if RadioButton4.Checked then
    ShowMessage('悟空一票')
   else if RadioButton5.Checked then
     ShowMessage('特南克斯一票')
    else
      ShowMessage('达尔一票'+#13+#13+'达尔最酷了！');
end;



end.