unit5.pas

转发一个用Delphi7编写的网络即时通讯示例

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    procedure RadioButton9Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
 uses unit4;
{$R *.dfm}

procedure TForm5.RadioButton9Click(Sender: TObject);
begin
showmessage('亲我一下，我才让你继续！');
end;

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
showmessage('欢迎使用傻妞人工智能！');
end;

procedure TForm5.RadioButton2Click(Sender: TObject);
begin
showmessage('小样，就你还想用人工智能，你脑子让门挤了！');
end;

procedure TForm5.RadioButton6Click(Sender: TObject);
begin
showmessage('xx，请问你有什么指示？');
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
showmessage('选择完毕！');
//form1.showmodal;
close;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
//form1.showmodal;
close;
end;

end.