घर
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;
इंटरफेस
का उपयोग करता है
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;
टाइप
TForm1 = वर्ग (TForm)
Button1: TButton;
Button2: TButton;

// это просто кнопка на форме - для демонстрации

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

// ресурс этой формы

{$ R * .DFM}
{ Прозрачная форма }
निर्माता TForm1.Create (AOwner: TComponent);
शुरू करना
विरासत में मिला;

// убираем сколлбары, чтобы не мешались
// при изменении размеров формы

HorzScrollBar.Visible:= False;
VertScrollBar.Visible:= False;

// строим новый регион

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]

Если ты имеешь ввиду форму, то visible:=false, если эта форма только одна и такой способ не поможет, можно присвоить ей регион к примеру только с одной видимой точной, которую ничкто и не заметит. А вот если окно создаётся с помощью АПИ, то просто нужно указать определённые опции в классе.
К тому же можно попробовать использовать функцию ShowWindow, опять таки с определёнными опциями.



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

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

ऊपर









मेमोरी: 0.57 एमबी
समय: 0.034 c
14-787
kedis
2003-04-15 16:51
2003.05.01
1C लेखा की शैली में भवन रिपोर्टें (Microsoft कार्यालय के बिना)


1-615
सर्गेई
2003-04-19 03:43
2003.05.01
* .Ocx फ़ाइल चलाना


1-590
Oleg1
2003-04-18 15:03
2003.05.01
नि: शुल्क रिपोर्ट 3.2


3-373
ग्राम
2003-04-11 09:39
2003.05.01
1 के बारे में) DateTime और 2) DBLookupComboBox


3-447
ArtemB
2003-04-14 08:44
2003.05.01
क्रमबद्ध तालिका





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