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

नीचे

ट्रीव्यू में ड्रैगओवर इसी तरह की शाखाएँ खोजें


Miralex   (2003-08-18 13:59) [0]

मेरे पास एक ट्रीव्यू है जहां फ़ोल्डर्स और फाइलें प्रदर्शित होती हैं
(वे Node.Data द्वारा भिन्न होते हैं यदि 1 तो फ़ोल्डर यदि 2 तो फ़ाइल:

मैं ऐसा बनाना चाहता हूं ताकि केवल फाइलों को पेड़ में स्थानांतरित किया जा सके
(चलती फ़ोल्डर पर रोक)

मैं लिख रहा हूँ:
प्रक्रिया TForm1.TreeView1DragOver (प्रेषक, स्रोत: TOBITS; X, Y: पूर्णांक;
राज्य: TDragState; var स्वीकार करें: बूलियन);
शुरू करना
यदि पूर्णांक ((TtreeNode के रूप में प्रेषक) .डाटा) = 2 तो स्वीकार करें: = सच को स्वीकार करें = गलत;
अंत;

और जब मैं कुछ भी खींचने की कोशिश करता हूं तो मैं एक त्रुटि के साथ उड़ जाता हूं:
"प्रोजेक्ट Project2.exe ने अपवाद वर्ग EInvalidCast को संदेश अमान्य वर्ग टाइपकास्ट के साथ उठाया"

कृपया मुझे समझाएं कि मैंने क्या गलत किया?



Семен Сорокин   (2003-08-18 14:07) [1]

आपके मामले में, Sender एक TreeView है, TreeView में आपको X और Y में TtreeNode को बाहर निकालने की आवश्यकता है, और इसमें डेटा देखें



Miralex   (2003-08-18 14:11) [2]

लेकिन आप अधिक विस्तार से यह कैसे कर सकते हैं?
(उदाहरण के साथ अधिमानतः)



Семен Сорокин   (2003-08-18 14:13) [3]

प्रक्रिया TForm1.TreeView1DragOver (प्रेषक, स्रोत: TOBITS; X, Y: पूर्णांक; राज्य: TDragState; var स्वीकार करें: बूलियन); वर _node: TTreeNode; शुरू करना _node: = TTreeView (प्रेषक) .GetNodeAt (X, Y); यदि असाइन किया गया (_node) तो स्वीकार करें: = पूर्णांक (_node.Data) = 2 अंत;



Miralex   (2003-08-18 14:33) [4]

धन्यवाद अर्जित किया!
कुछ ऐसा नहीं है जो मुझे सौंपा गया है (_node)
और क्या स्वीकार है: = पूर्णांक (_node.Data) = 2
स्वीकार एक बूलियन ऑपरेशन है और पूर्णांक है



Семен Сорокин   (2003-08-18 14:37) [5]

सौंपा (_node) के रूप में ही _node <> नील, शांत लोग वर्तमान का उपयोग :)))
स्वीकार करें: = पूर्णांक (_node.Data) = 2 आपके समान
यदि पूर्णांक (_node.Data) = 2 तो स्वीकार करें: = सही और स्वीकार करें: = गलत;



Miralex   (2003-08-18 14:42) [6]

OKI
स्पष्टीकरण के लिए धन्यवाद!
यहाँ वर्तमान थोड़ा गलत है:
आपकी विधि के अनुसार, यह पता चला कि आप सब कुछ खींच सकते हैं, लेकिन आप इसे एक फ़ोल्डर पर नहीं फेंक सकते हैं!
लेकिन मुझे वर्तमान फ़ाइलों को खींचने और सब कुछ के लिए इस्तेमाल किया जा सकता है!
(प्रेषक को स्रोत में बदला - मदद नहीं करता है)



Семен Сорокин   (2003-08-18 15:08) [7]

मिरलेक्स © (18.08.03 14: 42) [6]
इसके बाद प्रोसेसिंग को ऑनमाउन्डडाउन पर रखें:
प्रक्रिया TMainForm.TreeView1MouseDown (प्रेषक: TObject; बटन: TMouseButton; शिफ्ट: TShiftState; एक्स, वाई: इंटेगर); शुरू करना अगर (बटन = mbLeft) और (Shift = [ssLeft]) और असाइन किया गया (TreeView1.Selected) (पूर्णांक (TreeView1.Selected.Data) = 2) तब TreeView1.BeginDrag (झूठा) अंत;
और OnDragOver Access में तो हमेशा सच होता है



Miralex   (2003-08-18 15:17) [8]

मैंने एक प्रेमिका बनाई और स्वामी से यह पता लगाना चाहूंगा कि क्या 100% सही है ???

StartDrag में, मैंने लिखा है:
प्रक्रिया TForm1.TreeView1StartDrag (प्रेषक: TObject;
var DragObject: TDragObject);
शुरू करना
अगर पूर्णांक (Treeview1.Selected.Data) = 2 तब AcceptDrag: = true और AcceptDrag: = false;
अंत;

DragOver में लिखा है:
प्रक्रिया TForm1.TreeView1DragOver (प्रेषक, स्रोत: TOBITS; X, Y: पूर्णांक;
राज्य: TDragState; var स्वीकार करें: बूलियन);
शुरू करना
अगर AcceptDrag तो स्वीकार करें: = true और स्वीकार करें: = false;
अंत;

आखिरकार, वास्तव में, ऑनस्टार्टड्राग घटना सबसे पहले दिखाई देती है



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

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

ऊपर





मेमोरी: 0.57 एमबी
समय: 0.03 c
6-1522
XHelp
2003-06-26 20:03
2003.09.01
HTTP प्रॉक्सी के जरिए ICQ


1-1495
Grover_11
2003-08-18 10:31
2003.09.01
2 तिथि द्वारा एक फ़ाइल को परिभाषित करना


14-1652
श्री और MsGuns
2003-08-12 16:12
2003.09.01
Dll पुस्तकालयों के बारे में मेरी पुरानी शाखा


7-1676
Fokin111
2003-06-18 17:20
2003.09.01
एकीकरण


1-1472
खसखस
2003-08-18 13:55
2003.09.01
संदेश





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