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

नीचे

अंतर्निहित चेकबॉक्स TStringGrid के साथ समस्या! इसी तरह की शाखाएँ खोजें


kolobok   (2002-03-21 12:33) [0]

शायद कोई मेरी मदद करेगा? मुझे इस तरह की समस्या है:
मैं चाहता हूँ कि तीसरे कॉलम में TStringGrid घटक चेकबॉक्स को समाहित करे
पंक्ति में वर्णित क्रिया को सक्षम / अक्षम करने के लिए।
समस्या विशेष रूप से निम्नलिखित में शामिल है:
// प्रोग्रामेटिकली एक TCheckBox बनाएं
cbOne: = TCheckBox.Create (StringGrid1);
// चेकबॉक्स के जनक की घोषणा करें "a
cbOne.Parent: = StringGrid1;
// ऊपरी बाएँ कोने में वह दिखाई दिया।
// यदि आप अब इस पर क्लिक करते हैं, तो इससे कोई प्रतिक्रिया नहीं होती है
// यदि आप मूल Form1 या Button1 घोषित करते हैं - कोई समस्या नहीं है
// OnClick हैंडलर में चेक्ड को बदलने की कोशिश की, एक अनंत लूप मिला
// स्पष्ट रूप से एक प्रोग्रामेटिक स्टेट चेंज क्लिक-> ऑनक्लिक ईवेंट और अधिक ...
// मैं थोड़ा चकरा गया और StringGrid1 के लिए OnMouseDown इवेंट को संभालना शुरू कर दिया
// इस हैंडलर में, माउस निर्देशांक और का उपयोग करके सेल के समन्वय की गणना की जाती है
// स्थिति की जाँच की जाती है (वह सेल जिसमें चेकबॉक्स बैठता है या नहीं), यदि यह
// तब:
cbOne.Checked: = cbOne.Checked नहीं;
// केवल तभी काम करता है जब आप सेल मारते हैं। आप चेकबॉक्स में आते हैं - कोई प्रतिक्रिया नहीं।

बेशक, आप अनुकूलित कर सकते हैं, लेकिन आप चाहते हैं कि सब कुछ काम करना चाहिए जैसा कि इसे करना चाहिए!
और एक और बात: क्या किसी के पास इस बात का अच्छा उदाहरण है कि बटन, स्विच, स्विच आदि जैसे घटक में समान नियंत्रण कैसे बनाया जाए।
यदि आप kolobok11@hotbox.ru साबुन भेजते हैं तो मैं आभारी रहूंगा



Song   (2002-03-21 12:49) [1]

हो सकता है कि वह नकारात्मक रूप से सक्षम हो? या खुद को मजबूर करने के लिए मजबूर करना ।।



kolobok   (2002-03-21 13:04) [2]

सक्षम ठीक है। मैं यह कह रहा हूं कि यह केवल एक माता-पिता है जो एक फॉर्म या बटन और सब कुछ काम करता है।

सादर के लिए सादर



Song   (2002-03-21 13:10) [3]

रुको, मैं इसे स्वयं आज़माऊँगा



kolobok   (2002-03-21 13:19) [4]

सॉन्ग ट्राई करें। मैं मंच में देखता हूं कि आप इस मामले में कुशल हैं, आप निश्चित रूप से मदद कर सकते हैं। अग्रिम धन्यवाद।

kolobok11@hotbox.ru



MBo   (2002-03-21 13:21) [5]

प्रक्रिया TForm1.FormCreate (प्रेषक: TObject);
var cb: TCheckBox;
i: पूर्णांक;
शुरू करना
i: = 1 से SG1.RowCount-1 शुरू करें
cb: = TCheckBox.Create (स्व);
cb.Parent: = self;
cb.width: = 12;
cb.tag: = I;
cb.Caption: = "";
cb.color: = SG1.Color;
cb.Vouble: = (i in [SG1.TopRow..SG1.TopRow + SG1.VanishRowCount-1]);
cb.onClick: = CheckBox1 क्लिक करें;
SG1.Cols [3] .Objects [i]: = cb;
अंत;
अंत;

प्रक्रिया TForm1.CheckBox1 क्लिक करें (प्रेषक: TObject);
शुरू करना
अगर TCheckBox (प्रेषक)। तब जाँच की गई
Sg1.Cells [3, TCheckBox (प्रेषक)। Tag]: = "=-Ku"
अन्य
Sg1.Cells [3, TCheckBox (प्रेषक)। Tag]: = "Shhhh ...";
अंत;

प्रक्रिया TForm1.SG1DrawCell (प्रेषक: TObject; ACol, ARow: Integer;
अनुपात: TRect; राज्य: TGridDrawState);
शुरू करना
यदि (ACOL = 3) और (AROW> 0) तो शुरू करें
TCheckBox (SG1.Cols [3] .Objects [ARow])। शीर्ष: = SG1.top + Rect.Top + 5;
TCheckBox (SG1.Cols [3] .Objects [ARow])। वाम: = SG1.left + Rect.right-12;
अंत;
अंत;

प्रक्रिया TForm1.SG1TopLeftChanged (प्रेषक: TObject);
var i: पूर्णांक;
शुरू करना
i: = 1 से SG1.RowCount-1 करते हैं
TCheckBox (SG1.Cols [3] .Objects [i]): दृश्यमान: =
{
अंत;



Song   (2002-03-21 13:26) [6]

यह काम नहीं करता है क्योंकि इनपुट फोकस TCheckBox को प्रेषित नहीं किया जाता है। TStringGrid - घटक स्वयं मिश्रित है, प्रतिबंध इस के साथ जुड़े होने की अधिक संभावना है। यदि केवल माता-पिता को Form1 या स्वयं पर करना चाहिए (इस मामले में भी यही होगा)। और निर्देशांक को स्वयं चेकबॉक्स में असाइन करें।



Song   (2002-03-21 13:27) [7]

ओह, ओह :)) मैं देखता हूं कि एमबीओ आप पहले से ही मदद कर चुके हैं। :)) हमेशा की तरह, शीघ्र। : ओ



kolobok   (2002-03-21 14:26) [8]

निर्णय के लिए धन्यवाद एमवीओ, लेकिन चूंकि मैं इस समय इसे नहीं समझ सकता, इसलिए मैं आपसे संक्षेप में यह बताने के लिए कह रहा हूं कि क्या हो रहा है।

सादर, कोलोबोक।



MBo   (2002-03-21 14:41) [9]

जब एक चेकबॉक्स बनाया जाता है, तो माता-पिता को एक फ़ॉर्म सौंपा जाता है, और चूंकि यह बाद में दिखाई दिया, यह शीर्ष पर तैयार किया गया है। अन्य मामलों में, आप SendToFront कर सकते हैं।
बनाया गया चेकबॉक्स कॉलम की ऑब्जेक्ट सूची में दर्ज किया गया है (यह एक अलग में संभव है, लेकिन यह एक पहले से मौजूद है) (टाइप्स ऑफ़ टाइप टी स्टार्स), टैग - लाइन नंबर। ऑनक्लिक शेयर किया जाता है।

ड्राइंग, दृश्यता और एक क्लिक के साथ काम करना स्पष्ट या स्पष्ट है?



kolobok   (2002-03-21 14:58) [10]

एमवीओ, बेहतर ढंग से संक्षेप में समझाते हैं। मैं कह रहा हूं - मैं UNLESS हूं
और तुम, मैं देखता हूं, मास्तक! मैं कुछ दिनों के लिए सोचूंगा और यह सुनिश्चित करूंगा कि विज्ञान मेरे लिए होगा। और मदद कार्यक्रम में आपके बारे में मैं उल्लेख करूंगा - अगर मैं इसे पूरा करूंगा।

साभार, कोलोबोक।



MBo   (2002-03-21 15:13) [11]

क्लिक करें, कास्ट सेंडर को टाइप करने के लिए TCheckBox टाइप करें (सामान्य तौर पर, अगर किसी इवेंट को किसी अन्य प्रकार की ऑब्जेक्ट द्वारा ट्रिगर किया जा सकता है, तो आपको चेकबॉक्स गुणों का उपयोग करने के लिए Sender TCheckBox की जांच करनी होगी)

ड्राइंग - यदि स्तंभ की आवश्यकता है, सेल निर्देशांक (ग्रिड में) से हम चेकबॉक्स की स्थिति का पता लगाते हैं। समन्वय जोड़ें। ग्रिड, चूंकि चेकबॉक्स की स्थिति को rel दिया गया है। जनक रूप है।

दृश्यता - यदि सेल दिखाई देता है, तो चेकबॉक्स।
एक कॉलम के लिए, आप कर सकते हैं, एक श्रृंखला के लिए, (एक सबरेंज के साथ) यदि वे चौड़े हो सकते हैं और केवल 2 तय नहीं है। रखा जाता है।

आप विशेष रूप से पूछते हैं कि क्या स्पष्ट नहीं है।



kolobok   (2002-03-21 15:35) [12]

धन्यवाद MVO!
अब मुझे लगा, आपकी मदद से, बिल्कुल।
क्या आपको पता नहीं है डेल्फी एक्सएनयूएमएक्स रस या नहीं?

kolobok।



MBo   (2002-03-21 15:49) [13]

कोई डी रूसी नहीं हैं। वहाँ छोड़ दिया है कि Russifications
डिबग-विंडो वॉच्स वॉच के रूप में अनुवाद करती है



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

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

ऊपर









मेमोरी: 0.6 एमबी
समय: 0.035 c
1-254
dimonf
2002-03-20 21:35
2002.04.01
प्रोटोकॉल से निपटने में मदद ...


3-67
iPen
2002-03-05 11:01
2002.04.01
एक DBGrid सेल में लटका सॉफ्टवेयर


1-175
एयरो
2002-03-19 16:54
2002.04.01
एक प्रोग्राम से दूसरे में वैल्यू ट्रांसफर कैसे करें?


1-130
Zool
2002-03-21 20:46
2002.04.01
अपनी कक्षा कैसे बनाएँ


3-23
amamed_3071
2002-03-05 08:17
2002.04.01
त्रुटि समय आउट अपेक्षित मदद





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