LANÇAMENTO! Curso de Delphi 2009, clique aqui e confira!
Código
{Para alterar o formato do form, utilize a rotina abaixo
no evento OnClick do form (de preferência troque a
propriedade BorderStyle para bsNone, e deixe os
componentes mais ao centro do form): }
procedure TForm1.FormCreate(Sender: TObject);
var
hR : THandle;
begin
{cria uma form de formato elíptico}
hR := CreateEllipticRgn (0,0,Width,Height);
SetWindowRgn (Handle,hR,True);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009
LANÇAMENTO! Curso de Delphi 2009, clique aqui e confira!