Einzelnen Beitrag anzeigen

RedShakal
(Gast)

n/a Beiträge
 
#8

Re: Form lässt sich nicht schließen

  Alt 15. Jul 2009, 17:14
Der Code meiner registration.pas schaut momentan so aus:

Delphi-Quellcode:
unit registration;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Benutzername: TEdit;
    Label2: TLabel;
    Passwort: TEdit;
    Passwort2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Email: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses login, main;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
Form1.Visible := true;
Form2.Close;
Form1.Client.Disconnect;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Buffer : string;
  Reg : byte;
begin
  If Passwort.Text <> Passwort2.Text then Showmessage('Die Passwörter sind nicht identisch!');
  If Passwort.Text = ''              then Showmessage('Bitte wähle ein Passwort!');
  If Benutzername.Text = ''          then Showmessage('Der Benutzername darf nicht leer sein!');
  If Email.Text = ''                 then Showmessage('Bitte gib eine E-Mail Adresse ein!');

  if Passwort.Text = Passwort2.Text then
    begin
      if Benutzername.Text <> 'then
        begin
          if Email.Text <> 'then
            begin
              Reg := 1;
            end;
        end;
    begin

  if Reg = 1 then
    begin
      Form1.Client.Connect(5000);
      Form1.Client.WriteLn('Register' + '|' + Form2.Benutzername.Text + '|' + Form2.Passwort.Text + '|' + Form2.EMail.Text);
      Buffer := Form1.Client.ReadLn;

      if Buffer = 'Erstelltthen
        begin
          Showmessage('Account wurde erfolgreich erstellt!');
          Form2.Close;
          Form1.Show;
          Form1.Client.Disconnect;
          Button1.Enabled := false;
        end;

      if Buffer = 'Vorhandenthen Showmessage('Account existiert bereits!');
    end;
  end;
  end;
end;



end.

Ich benutze Form Hide und Form Show um die Forms zu zeigen oder zu verstecken.
Um Form1 zu verstecken nutze ich Form1.Hide. Um andere Forms zu schließen, nutze ich Form2.Close;
  Mit Zitat antworten Zitat