घर
Top.Mail.Ru Yandeks.Metrika
मंच: "शुरुआती";
वर्तमान संग्रह: 2018.03.04;
डाउनलोड करें: [xml.tar.bz2];

नीचे

Redo MessageDlg इसी तरह की शाखाएँ खोजें


gog ©   (2016-02-29 16:39) [0]

सभी को अच्छा समय।

मैंने अपना संदेश बॉक्स (MessageDlg के समान) बनाने का फैसला किया, जहां शुरुआत के लिए, विंडो शीर्षक और बटन लेबल राष्ट्रीय भाषा में प्रदर्शित किए जाएंगे। भविष्य में, यह मानक MessageDlg के कार्यों में अन्य परिवर्तनों को पेश करने वाला है। लेकिन मुझे शुरू से ही एक समस्या थी।
यहाँ कार्यक्रम पाठ है:

इकाई Unit1;

इंटरफेस

का उपयोग करता है
विंडोज, संदेश, SysUtils, वेरिएंट, कक्षाएं, ग्राफिक्स, नियंत्रण, प्रपत्र,
संवाद, StdCtrls, MyMessageDlg;

टाइप
TForm1 = वर्ग (TForm)
Button1: TButton;
Button2: TButton;
प्रक्रिया Button1Click (प्रेषक: Tobject);
प्रक्रिया Button2Click (प्रेषक: Tobject);
निजी
{निजी घोषणाएँ}
सार्वजनिक
{सार्वजनिक घोषणाएँ}
अंत;

था
Form1: TForm1;

कार्यान्वयन

{$ R * .dfm}

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
शुरू करना
MessageDlg ("हैलो", mtInformation, [mbYes, mbNo], 0);
अंत;

प्रक्रिया TForm1.Button2 क्लिक करें (प्रेषक: TObject);
शुरू करना
GgMessageDlg ("हैलो", mtInformation, [mbYes, mbNo], 0);
अंत;

समाप्त।

-------------------------------------------------- ------------------

इकाई MyMessageDlg;

इंटरफेस

का उपयोग करता है
विंडोज, कक्षाएं, फॉर्म, संवाद;

resourcestring
{जॉर्जियाई संदेश संवाद}

 SGgMsgDlgWarning     = "გაფრთხილება";
SGgMsgDlgError = "& # 4328; & # 4308; & # 4330; & # 4307; & # 4317; & # 4315; & # 4304;"
 SGgMsgDlgInformation = "ინფორმაცია";
 SGgMsgDlgConfirm     = "დადასტურება";
{
SGgMsgDlgSkip = "& # 194; & # 192; & # 204; & # 207; & # 212; & # 207; & # 197; & # 196;"
SGgMsgDlgReplace = "& # 219; & # 196; & # 221; & # 197; & # 192; & # 203; & # 196;"
SGgMsgDlgDelete = "& # 223; & # 192; & # 219; & # 192; & # 203; & # 196;"
SGgMsgDlgYes = "& # 195; & # 201; & #NNUMX; & # 192;"
SGgMsgDlgNo = "& # 192; & # 210; & #NNUMX;"
SGgMsgDlgOK = "ठीक है";
SGgMsgDlgCancel = "& # 195; & # 192; & # 225; & # 214; & # 210; & # 196;"
SGgMsgDlgHelp = "& # 195; & # 192; & # 225; & # 204; & # 192; & # 210; & # 196; & # 193; & # 192;"
 SGgMsgDlgHelpNone    = "ÀÒ ÀÒÓÄÁÏÁÓ ÃÀáÌÀÒÄÁÉÓ ×ÀÉËÉ";
 SGgMsgDlgHelpHelp    = "ÀáÌÀÒÄÁÀ";
SGgMsgDlgAbort = "& # 219; & # 196; & # 223; & # 218; & # 197; & # 201; & # 212; & # 196;"
SGgMsgDlgRetry = "& # 194; & # 192; & # 201; & # 204; & # 196; & # 207; & # 210; & # 196;"
SGgMsgDlgIgnore = "और ध्यान न दें";
SGgMsgDlgAll = "& # 218; & # 197; & #NNUMX; & # 196; & # 203;"
 SGgMsgDlgNoToAll     = "ÀÒÀ ÚÅÄËÀÓÈÅÉÓ";
 SGgMsgDlgYesToAll    = "ÃÉÀá ÚÅÄËÀÓÈÅÉÓ";
SGgMsgDlgShow = "& # 204; & # 192; & #NNUMX; & # 220; & # 197; & # 196; & # 205;"
SGgMsgDlgPrint = "& # 195; & # 192; & # 193; & # 196; & # 224; & # 195; & # 196;"
 SGgMsgDlgClipboard   = "ÁÖ×ÄÒÛÉ";
}

टाइप

TGgMessageForm = वर्ग (TForm)
निजी
प्रक्रिया HelpButtonClick (प्रेषक: TObject);
सार्वजनिक
निर्माता क्रिएटन्यू (AOwner: TComponent);
अंत;

TGgMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
TGgMsgDlgBtn = (mbSkip, mbReplace, mbDelete, mbYes, mbNo, mbOK, mbCancel,
mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll,
mbHelp, mbShow, mbPrint, mbClipboard);
TGgMsgDlgButtons = TGgMsgDlgBtn का सेट;

था
कैप्शन: सरणी सूचक [TGgMsgDlgType] का सूचक = (@SGgMsgDlgWarning, @SGgMsgDlgError,)
@SGgMsgDlgInformation, @SGgMsgDlgConfirm, nil);

फ़ंक्शन GgCreateMessageDialog (const Msg: string; DlgType: TGgMsgDlgType;
बटन: TGgMsgDlgButtons): TForm;

फ़ंक्शन GgMessageDlg (const Msg: string; DlgType: TGgMsgDlgType)
बटन: TGgMsgDlgButtons; हेल्पटैक्स: लॉन्गिंट): इंटेगर; अधिभार;

कार्यान्वयन

{} TGgMessageForm

प्रक्रिया TGgMessageForm.HelpButtonClick (प्रेषक: TObject);
शुरू करना
Application.HelpContext (HelpContext);
अंत;

निर्माता TGgMessageForm.CreateNew (AOwner: TComponent);
था
NonClientMetrics: TNonClientMetrics;
शुरू करना
विरासत में मिला CreateNew (AOwner);
स्थिति: = poScreenCenter;
अंत;

{} GgMessageDlg

फ़ंक्शन GgCreateMessageDialog (const Msg: string; DlgType: TGgMsgDlgType;
बटन: TGgMsgDlgButtons): TForm;

शुरू करना
परिणाम: = TGgMessageForm.CreateNew (आवेदन);
परिणाम के साथ शुरू करते हैं

अंत;
अंत;

फ़ंक्शन GgMessageDlg (const Msg: string; DlgType: TGgMsgDlgType)
बटन: TGgMsgDlgButtons; हेल्पटैक्स: लॉन्गिंट): इंटेगर; अधिभार;
शुरू करना
GgCreateMessageDialog (Msg, DlgType, Buttons) के साथ शुरू करते हैं
परिणाम: = ShowModal;
अंत;
अंत;

समाप्त।

संकलन करते समय, एक त्रुटि जारी की जाती है:
"MessageDlg" का कोई अतिभारित संस्करण नहीं है जिसे इन तर्कों के साथ बुलाया जा सकता है

अगर Button1Click हैंडलर पर टिप्पणी की जाती है, तो सब कुछ काम करता है।
मुझे यह पता लगाने में मदद करें कि मैं कहां गलती कर रहा हूं? आखिरकार, कार्यों के नाम अलग हैं।

संस्करण: डेल्फी XE, Win7।



NoUser ©   (2016-03-01 02:37) [1]

इसे इस तरह लिखें:
MessageDlg ("हैलो", TMsgDlgType.mtInformation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0);

या अपने मॉड्यूल में
mtWarning, mtError, ... mbAbort, mbRetry, ...
के साथ बदलें
gmtWarning, gmtError, ... gmbAbort, gmbRetry, ।।.

या आपका वर्णन नहीं करता
TGgMsgDlgType, TGgMsgDlgBtn, TGgMsgDlgButtons
और "तैयार" का उपयोग करें
TMsgDlgType, TMsgDlgBtn, TMsgDlgButtons



gog ©   (2016-03-01 08:41) [2]

धन्यवाद.
मुझे अपनी गलती का मर्म समझ में आ गया। विभिन्न चर के लिए समान नाम दिए गए



Юрий Зотов ©   (2016-03-01 21:12) [3]

लेकिन क्या यह सब एक लाइन से बदलना संभव है?

संदेश बॉक्स (...)



Dimka Maslov ©   (2016-03-02 18:39) [4]

और यदि आप फ़ाइल में प्रासंगिक संसाधनों को बाधित करते हैं तो कॉन्सेप्टस और इसे प्रोजेक्ट में जोड़ें?



Rouse_ ©   (2016-03-02 19:34) [5]


> यूरी जोतोव © (01.03.16 21: 12) [3]
> लेकिन क्या यह सब एक लाइन से बदलना संभव है?
>
> संदेश बॉक्स (...)

केवल 3 बटन दिखाए जा सकते हैं :)



Германн ©   (2016-03-03 01:05) [6]


> Rouse_ © (02.03.16 19: 34) [5]
>
>
>> यूरी जोतोव © (01.03.16 21: 12) [3]
Quoted1 >> लेकिन क्या यह सब एक लाइन से बदलना संभव है?
>>
>> संदेश बॉक्स (...)
>
> केवल 3 बटन दिखाए जा सकते हैं :)
>

क्या किसी को तीन बटन से अधिक की आवश्यकता है? :)



sniknik ©   (2016-03-03 08:34) [7]

हां, और यहां तक ​​कि टिक भी जाता है जैसे "आगे मत पूछो", कभी-कभी।



Германн ©   (2016-03-04 00:58) [8]


> स्निकनिक © (03.03.16 08: 34) [7]
>
> हाँ, और यहां तक ​​कि "आगे मत पूछो" जैसे टिक भी होते हैं।
>
>

फिर अपना संवाद लिखना बहुत आसान है। :)



gog ©   (2016-03-04 10:29) [9]

इसलिए मैं अपना संवाद लिख रहा हूं।
टीएलबेल ने टीएचटीएमएलबेल के साथ समृद्ध पाठ प्रारूपण विकल्प (व्यक्तिगत शब्दों के लिए रंग, फ़ॉन्ट आकार) के लिए भी प्रतिस्थापित किया।
लेकिन मुझे समझ नहीं आ रहा था कि मैसेज (Win7) के लिए मानक मैसेजडल कैसे एक सफ़ेद पृष्ठभूमि तैयार करता है।



Игорь Шевченко ©   (2016-03-04 12:05) [10]


> लेकिन मैं यह नहीं समझ सका कि मानक MessageDlg कैसे तैयार किया जाता है
> संदेश के तहत सफेद पृष्ठभूमि


RTFS: डायलॉग्सपास



gog ©   (2016-03-04 13:22) [11]

RTFS: डायलॉग्सपास
यह क्या है
एक आधार के रूप में, मैंने डायलॉग्सपास लिया



Игорь Шевченко ©   (2016-03-04 14:51) [12]


> मैंने डायलॉग्सपास को आधार बनाया


और फिर आप के लिए क्या समझ से बाहर है? वहां सब कुछ लिखा है, अंदर



gog ©   (2016-03-07 13:11) [13]

खैर, एक सफेद आयत तैयार नहीं है।
ऐसा कोड लिखा (अलग से):

प्रक्रिया TForm1.Button6 क्लिक करें (प्रेषक: TObject);
था
एफ: टीफ़ॉर्म;
आर: टीआरटी;
शुरू करना
एफ: = TForm.CreateNew (आवेदन);
F.Canvas.Brush.Style:= bsSolid;
F.Canvas.Brush.Color: = clRed;
आर: = रेक्ट (एक्सएनयूएमएक्स);
एफ। कैनवस। फिलरक्ट (आर);
F.ShowModal;
F.Free;
अंत;

एक आकृति बनाई और प्रदर्शित की गई है, लेकिन वहां कोई लाल आयत नहीं है। मुझे समझ क्यों नहीं आता!
कोड कब है:

प्रक्रिया TForm1.Button5 क्लिक करें (प्रेषक: TObject);
शुरू करना
कैनवस.ब्रश। सेटल := bsSolid;
कैनवस.ब्रश.कोलर: = क्लरेड;
कैनवस.फिलरेक्ट (Rect (0,0,50,50));
अंत;

आवेदन कार्यों के मुख्य रूप के लिए।
गतिशील रूप से फॉर्म बनाते समय क्या गायब है?



Игорь Шевченко ©   (2016-03-07 21:44) [14]

गोग © (07.03.16 13: 11) [13]


> खैर, एक सफेद आयत नहीं खींची गई है।


उस समय नहीं जब आप ड्राइंग कर रहे हों। प्रपत्र के OnPaint ईवेंट में आकर्षित करने का प्रयास करें



Германн ©   (2016-03-09 00:20) [15]


> जब कोड:
>
> प्रक्रिया TForm1.Button5 क्लिक करें (प्रेषक: TObject);
> शुरू करो
> कैनवस.ब्रश। सेटल := bsSolid;
> कैनवस.ब्रश.कोलर: = क्लरेड;
> कैनवस.फिलरेक्ट (Rect (0,0,50,50));
> अंत;
>
> आवेदन कार्यों के मुख्य रूप के लिए।

यह कोड कभी भी सामान्य रूप से काम नहीं करता है। और यह कभी भी सामान्य रूप से काम नहीं कर सकता है।
आप वास्तव में इसे अपने आप से समझ लेते हैं, आप क्या बनाना चाहते हैं? आपका वर्ग या आपका रूप



Kilkennycat ©   (2016-03-09 22:53) [16]


> यह कोड सामान्य रूप से कभी काम नहीं करता है।

यह क्यों है? फॉर्म के पहले रिड्रव तक, यह काफी अच्छी तरह से काम करता है :)



Eraser ©   (2016-03-11 00:08) [17]


> गोग © (29.02.16 16: 39)

शायद हर कोई हमारे सामने आविष्कार किया? TTaskDialog देखें



पन्ने: 1 पूरी शाखा

मंच: "शुरुआती";
वर्तमान संग्रह: 2018.03.04;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.63 एमबी
समय: 0.021 c
2-1457077794
द्रमुक
2016-03-04 10:49
2018.03.04
बिट्स


2-1456839307
सलाहकार
2016-03-01 16:35
2018.03.04
Android बनाम Win7


2-1458382160
Valya
2016-03-19 13:09
2018.03.04
TreeView बहु का चयन करें


2-1458036962
अफ्रीका का लंगूर
2016-03-15 13:16
2018.03.04
स्पष्ट सेट


2-1456752598
अफ्रीका का लंगूर
2016-02-29 16:29
2018.03.04
हालत की जाँच





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский