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

नीचे

पारदर्शी खिड़की कैसे बनाएं? इसी तरह की शाखाएँ खोजें


Andrew75   (2003-04-19 13:41) [0]

पारदर्शी खिड़की कैसे बनाएं?



Лана Розанова   (2003-04-19 13:47) [1]

कोड बड़ा है, मुझे याद नहीं है। खोज या पेंट्री पर जाएं, वहां सुनिश्चित है।



Snap   (2003-04-19 13:54) [2]

बिल्कुल पारदर्शी या कुछ प्रतिशत पारदर्शी?



Andrew75   (2003-04-19 14:05) [3]

सब



Yanis   (2003-04-19 14:17) [4]

इकाई Unit1;
इंटरफेस
का उपयोग करता है
विंडोज, संदेश, SysUtils, कक्षाएं, ग्राफिक्स, नियंत्रण, प्रपत्र, संवाद, StdCtrls;
टाइप
TForm1 = वर्ग (TForm)
Button1: TButton;
Button2: TButton;

// यह केवल फॉर्म का एक बटन है - प्रदर्शन के लिए

संरक्षित
प्रक्रिया RebuildWindowRgn;
प्रक्रिया का आकार परिवर्तन; ओवरराइड;
सार्वजनिक
निर्माता बनाएँ (AOwner: TComponent); ओवरराइड;
अंत;
था
Form1: TForm1;
कार्यान्वयन

// इस फॉर्म का संसाधन

{$ R * .DFM}
{पारदर्शी रूप}
निर्माता TForm1.Create (AOwner: TComponent);
शुरू करना
विरासत में मिला;

// कॉलबार्स को हटा दें ताकि वे हस्तक्षेप न करें
// जब फॉर्म का आकार बदल रहा हो

होर्ज़्सक्राॅलबार। अदृश्य: = गलत;
वर्टसक्रोलबार। अदृश्य: = गलत;

// एक नया क्षेत्र बनाएं

RebuildWindowRgn;
अंत;
प्रक्रिया TForm1.esize;
शुरू करना
विरासत में मिला;

// एक नया क्षेत्र बनाएं

RebuildWindowRgn;
अंत;
प्रक्रिया TForm1.RebuildWindowRgn;
था
FullRgn, Rgn: थैंडल;
ClientX, ClientY, I: पूर्णांक;
शुरू करना

// ग्राहक भाग के सापेक्ष निर्देशांक निर्धारित करते हैं

ClientX: = (चौड़ाई - ClientWidth) div 2;
ClientY: = ऊँचाई - ClientHeight - ClientX;

// पूरे फॉर्म के लिए एक क्षेत्र बनाएं

FullRgn: = CreateRectRgn (0, 0, चौड़ाई, ऊंचाई);

// फॉर्म के क्लाइंट भाग के लिए एक क्षेत्र बनाएं

// और इसे FullRgn से घटाएं

Rgn: = CreateRectRgn (ClientX, ClientY, ClientX + ClientWidth, ClientY +
ClientHeight);
CombineRgn (FullRgn, FullRgn, Rgn, rgn_Diff);

// अब प्रत्येक नियंत्रण के क्षेत्रों को FullRgn में जोड़ें

I के लिए: = 0 से ControlCount -1 करते हैं
नियंत्रण के साथ [मैं] शुरू करते हैं
Rgn: = CreateRectRgn (ClientX + Left, ClientY + Top, ClientX + Left +
चौड़ाई, ग्राहक + शीर्ष + ऊंचाई);
CombineRgn (FullRgn, FullRgn, Rgn, rgn_Or);
अंत;

// विंडो का नया क्षेत्र सेट करें

SetWindowRgn (संभाल, FullRgn, सच);
अंत;
समाप्त।

और फॉर्म के एक अलग सेक्शन को पारदर्शी बनाने के लिए एक घटक भी है।
यह यहाँ लगता है: http://alexeenko.prima.susu.ac.ru/lynx/files/vcl/glassy10.zip



Snap   (2003-04-19 14:18) [5]

यदि आपका कोई रूप है, तो दृश्यमान: = असत्य, यदि यह फ़ॉर्म केवल एक है और यह विधि मदद नहीं करती है, तो आप इसे एक क्षेत्र निर्दिष्ट कर सकते हैं, उदाहरण के लिए, केवल एक दृश्यमान सटीक एक जिसे कोई भी नोटिस नहीं करेगा। लेकिन अगर विंडो एपीआई का उपयोग करके बनाई गई है, तो आपको बस कक्षा में कुछ विकल्प निर्दिष्ट करने की आवश्यकता है।
इसके अलावा, आप कुछ खास विकल्पों के साथ फिर से ShowWindow फ़ंक्शन का उपयोग करने का प्रयास कर सकते हैं।



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

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

ऊपर





मेमोरी: 0.56 एमबी
समय: 0.022 c
14-793
Bboy
2003-04-15 20:21
2003.05.01
दूर तक की समस्या


3-485
pavel_rosl
2003-04-15 03:52
2003.05.01
डेटाबेस


14-706
चुपचाप
2003-04-10 22:38
2003.05.01
गोल छेनी और गुलाबी मछली पकड़ने की रेखा के साथ


1-522
Vasiliy
2003-04-20 22:59
2003.05.01
TCustomControl को कैसे साफ़ करें


1-526
Silver_
2003-04-17 14:44
2003.05.01
DateTimeFormat - पूरे आवेदन में





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