Buscar

Form com um furo que deixa ver atraz

Código

Var
Region, Region2 : hrgn;
begin
 Form1.FormStyle:= fsStayOnTop;
 Region := CreaterectRgn(0,0,width,height);
 Region2 := CreateEllipticRgn(30,30,100,100);
 CombineRgn(region, region, region2, RGN_DIFF);
 SetWindowRgn(handle, region, true);
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 20/06/03
Por: Felipe Monteiro
Visualizada: 2154 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009