Pass Parameter beim Erstellen eines neuen Formulars in Delphi SDI

Question

Ok, tut mir leid, wenn das ein wenig verwirrend ist, aber ich weiß nicht, wie ich es besser erklären soll. Ich habe ein Chatformular, das angezeigt wird, nachdem sich der Benutzer zuvor in TLoginForm authentifiziert hat.

angemeldet Benutzer in zeigen dann die chatForm:

with TChatForm.Create(Application) do 
begin 
    Show; 
end; 

Mein Problem ist, wie kann ich den Benutzernamen an die chatForm geben, damit ich es als Spitznamen im Chat nutzen können, in Anbetracht der Tatsache, dass das Formular stellt eine Verbindung zum Server OnShow her, daher benötige ich den bereits gesendeten Benutzernamen.

Ich bin neu in Delphi, also, wenn es einen Fehler in meinem Code gibt, bitte entschuldigen Sie mich.

Answer 1

Wenn der Benutzername während der gesamten Lebensdauer des Objekts festgelegt werden soll, sollte er an den Konstruktor übergeben werden. Der Vorteil ist, dass es nicht möglich ist, die Klasse zu missbrauchen und vergessen, den Benutzernamen zuzuweisen.

Deklarieren Sie einen Konstruktor, der die zusätzlichen Informationen in Parameter erhält:

type 
    TMyForm = class(TForm) 
    private 
    FUserName: string; 
    public 
    constructor Create(AOwner: TComponent; 
     const UserName: string); 
    end; 

constructor TMyForm.Create(AOwner: TComponent; 
     const UserName: string); 
begin 
    inherited Create(AOwner); 
    FUserName := UserName; 
end; 

Erstellen Sie das Formular wie folgt aus:

MyForm := TMyForm.Create(Application, UserName); 

Answer 2

eine öffentliche Methode zu Ihrem chatform hinzufügen.

Damit können Sie, was Sie wollen, in Ihr Chat-Formular übergeben, ohne bestehende öffentliche Methoden zu ändern, indem Sie einfach neue hinzufügen.
Beispiel ohne „mit“ oder FUsername mit Bedenken auszuräumen:

frmChat := TChatForm.Create(Application); 
frmChat.Nickname := aUsername; 
frmChat.Show; 

TChatForm = class(TForm) 
private 
    FUsername : string; 

    procedure SetNickName(const Value: string); 
    function GetNickName: string; 
public 
    property NickName: string read GetNickName write SetNickName; 
end; 

procedure TChatForm.SetNickName(const Value: string); 
begin 
    FUsername := Value; 
end; 
function TChatForm.GetNickName: string; 
begin 
    Result := FUsername; 
end;