Como fazer forms com pontas retângulares (roundrect)?

Delphi

22/06/2004

Olá Pessoal, alguém sabe como fazer esse tipo de form?


Cdteam

Cdteam

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

22/06/2004

seria ´pontas arredondadas´?


GOSTEI 0
Cdteam

Cdteam

22/06/2004

seria ´pontas arredondadas´?

sim, eu digitei errado na perssa, foi mal


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

22/06/2004

para criar for Forulário não retângulares, usa-se [color=darkblue:1c2ece3903][i:1c2ece3903]Regions[/i:1c2ece3903][/color:1c2ece3903], um exemplo de formulário com cantos arredondados, pode ser obtido com o seguinte código

Insira esse fragmento abaixo no evento OnCreate seu Form

var
  Region: HRGN;
begin
  with ClientRect do
    Region := CreateRoundRectRgn(Left, Top, Right, Bottom, 64, 64);
  SetWindowRgn(Handle, Region, False);
  DeleteObject(Region);
end;


mais interessante ainda, é usar um programinha, chamado GabesOddForm, para criar formulários baseados em imagens, como citado neste tópico: http://delphiforum.icft.com.br/forum/viewtopic.php?t=20944&highlight=gabesoddform

:!:


GOSTEI 0
POSTAR