Buscar

Como deixar o form redondo!

Código


procedure TForm1.FormCreate(Sender: TObject);
var Hd : THandle;
begin
Hd := CreateEllipticRgn(0,0,400,400);
SetWindowRgn(Handle,Hd,True);
end;

//muito simples.

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Forms
Adicionada dia: 12/12/07
Por: Magno Francis
Visualizada: 8984 vezes

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