Mega Code Archive
How to make you form really invisible
<![CDATA[
Title: How to make you form really invisible
Resumo:
Este exemplo talvez um pouco complexo, mais funciona bem. Deixa o seu form totalmente transparente. Mas aten o, nem mesmo o t tulo da janela fica vis vel.
Texto:
procedure TForm1.Button1Click(Sender: TObject);
var
frmRegion, tempRegion: HRGN;
i: Integer;
Arect: TRect;
Begin
frmRegion := 0;
for I:= 0 to ControlCount - 1 Do
begin
aRect := Controls.BoundsRect;
OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top );
tempRegion := CreateRectRgnIndirect( aRect );
if frmRegion = 0 Then
frm Region := tempRegion
else
begin
CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
DeleteObject( tempRegion );
end;
end;
CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
SetWindowRgn( handle, frmRegion, True );
DeleteObject( tempRegion );
end;
]]>