unit6.~pas

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

unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure GroupBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
var s:string;
t:integer;
begin
s:='wangjingfeng';
t:=3;
repeat
if edit1.Text=s then
begin
form6.Hide;
form4.ShowModal;
break;
end
else if messagedlg('对不起，密码不正确，是否重新输入密码？',mtinformation,[mbyes,mbNo],0)=mryes
then
begin
t:=t-1;
end;
until (edit1.text=s) or (t=0) ;
if t=0 then
close;

end;

procedure TForm6.GroupBox1Click(Sender: TObject);
begin
 close;
end;

end.