ychatu55.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 72 行

unit YchatU55;

interface

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

type
  TForm51 = class(TForm)
    Button1: TButton;
    Edit7: TEdit;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form51: TForm51;

implementation

uses YchatU2;

{$R *.dfm}

procedure TForm51.Button1Click(Sender: TObject);
begin
 Form51.Edit7.Text:='';
 If Edit2.Text=Edit9.Text Then
  Begin
{   Form2.spSkinEdit1.Text:=Form51.Edit1.Text;
   Form2.spSkinPasswordEdit1.Text:=Form51.Edit2.Text;}
   TCreateAccount.Create(Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Edit5.Text,edit6.Text,edit8.text,False)
  End
    else
   ShowMessage('Passwords do not match!');
end;

procedure TForm51.Button2Click(Sender: TObject);
begin
Close;
end;

end.