Buscar

Criar form com cantos arredondados

Código

Procedure TForm1.FormCreate(Sender: TObject);
var
  region : hrgn;
begin
  region:= CreateRoundRectRgn(0, 0, width, height, 20, 20);
  setwindowrgn(handle, region, true);
end;

//width e height são as propriedades da largura e altura do form
//20 e 20 são o nível de arredondamento dos cantos

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Forms
Adicionada dia: 17/05/07
Por: Francisco Das Chagas Moreira
Visualizada: 20010 vezes

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