Daten in neues Formular übertragen?

[s.h.a.r.k]

Du fügst Form2 eine Property hinzu:

Delphi-Quellcode:

TForm2 = class(TForm)
private
  FUsername : String;
public
  // Hier könntest auch noch Getter und Setter nutzen, anstatt
  // dem direkten Zugriff auf die private-Variable
  property Username : String read FUsername write FUsername;
end;

Und kannst dann vor dem ShowModal-Aufruf den Namen setzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Form2 : TForm2;
begin
  Form2 := TForm2.Create(nil);
  try
    Form2.Username := Edit1.Text;
    Form2.ShowModal();
  finally
    Form2.Free();
  end;
end;

Was ich noch vergessen haben: Die Anzeige des Namens kannst du dann im OnShow-Ereignis von Form2 setzen:

Delphi-Quellcode:

procedure TForm2.OnShow();
begin
  Label1.Caption := FUsername;
end;

Und noch was habe ich vergessen: Herzlich Willkommen in der DP!