|
|
Mozgatható átlátszó ablak készítése
|
|
Példaprogram letöltése
7896 bájt
|
Készítünk egy olyan alkalmazást, amelyben a Form-ot átlátszóvá tehetjük úgy, hogy annak területe mögött a háttérben futó alkalmazás látszik, míg a Form-on csak a rajta lévő komponensek lesznek láthatóak. A Form mozgatható is ebben az állapotban, így az átlátszó terület folyamatosan az aktuális képet mutatja.
A Button1 lenyomására átlátszó lesz a Form, míg a Button2-vel visszaállíthatjuk az eredeti állapotot.
A megoldás elve a következő: készítünk egy új régiót, melyet alkalmazunk a Form-on. Ebben a régióban csak a Form fejléce, illetve a rajta lévő komponensek lesznek láthatóak. Ezt úgy érjük el, hogy kiindulunk egy üres régióból, majd ehhez folyamatosan hozzáadjuk azokat a téglalap régiókat, melyek területe az egyes komponensek területét fedi. A folyamat végére elő áll a kívánt régió.
procedure TForm1.Button1Click(Sender: TObject);
…
for i:=0 to ControlCount-1 do begin
rect:=Controls[i].BoundsRect;
OffsetRect(rect, ClientOrigin.x-Left, ClientOrigin.y-top);
r2:=CreateRectRgnIndirect(rect);
if r1=0 then begin
r1:=r2;
end else begin
CombineRgn(r1, r1, r2, RGN_OR);
DeleteObject(r2);
end;
end;
r2:=CreateRectRgn(0, 0, Width, GetSystemMetrics(SM_CYCAPTION)+GetSystemMetrics(SM_CYSIZEFRAME)
+GetSystemMetrics(SM_CYMENU)*Ord(Menu<>nil));
CombineRgn(r1, r1, r2, RGN_OR);
DeleteObject(r2);
SetWindowRgn(Handle, r1, true);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
r1: HRGN;
begin
r1:=CreateRectRgn(0, 0, Width, Height);
SetWindowRgn(Handle, r1, true);
end;
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 582. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|