डेल्फी एसडीआई

Question

में नया फॉर्म बनाते समय पैरामीटर पास करें ठीक है, मुझे खेद है कि यह थोड़ा उलझन में है लेकिन मुझे नहीं पता कि इसे बेहतर तरीके से कैसे समझाया जाए। मेरे पास एक चैट फॉर्म है जो उपयोगकर्ता को पहले TLoginForm में प्रमाणित करने के बाद दिखाया गया है।

उपयोगकर्ता में लॉग इन किया तो chatForm दिखाने:

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

मेरे समस्या, मैं कैसे chatForm को उपयोगकर्ता नाम पारित कर सकते हैं तो मैं यह उपनाम के रूप में चैट में उपयोग कर सकते हैं, इस तथ्य पर विचार है कि फॉर्म स्वतः सर्वर ऑनशो से कनेक्ट होता है, इसलिए मुझे पहले से भेजे गए उपयोगकर्ता नाम की आवश्यकता होगी।

मैं डेल्फी के लिए नया हूं इसलिए यदि मेरे कोड में कोई गलती है, तो कृपया मुझे क्षमा करें।

Answer 1

यदि उपयोगकर्ता नाम के पूरे जीवनकाल के दौरान उपयोगकर्ता नाम निर्धारित किया जाना चाहिए तो इसे कन्स्ट्रक्टर में पास किया जाना चाहिए। लाभ यह है कि कक्षा का दुरुपयोग करना और उपयोगकर्ता नाम असाइन करना भूलना संभव नहीं है।

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; 

इस तरह प्रपत्र बनाएँ::

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

Answer 2

अपने chatform के लिए एक सार्वजनिक विधि जोड़ें

एक निर्माता है कि मानकों में अतिरिक्त जानकारी प्राप्त करता घोषित।

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

procedure TChatForm.PassUserName(const aUsername: string); 
begin 
    Caption := 'You can now chat: '+ aUsername; 
end; 

यह तो आप बस नए लोगों को जोड़कर मौजूदा सार्वजनिक तरीकों को बदले बिना जो आप अपने चैट फार्म में चाहते हैं पारित करने के लिए अनुमति देता है।
"के साथ" का उपयोग कर या FUsername चिंताओं को दूर करने के बिना उदाहरण:

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;