Runde forme

prøv at kig på dette fra borrisholt:

http://borrisholt.com/VCL/DelphiSource/TForm.zip

/ZIRON

Prøv dette eksempel:

procedure TForm1.FormCreate(Sender: TObject);
var
  newshape : hrgn;
begin
  width := 250;
  height := 50;
  newshape := createroundrectrgn(0, 0, width, height, height div 3, height div 3);
  setwindowrgn(handle,newshape,true);
end;

For at få en cirkel rund form så erstat:

createroundrectrgn

med...

createellipsergn

Håber du kan bruge det

ZeroHero

zerohero - createround virker fint, med elipsen kan jeg ikke få til at virke!?

remis>> den hedder CreateEllipticRgn

Klik med musen i koden på ordet, og tryk F1. Derefter klikker du på group.

Der kan du se flere.

/SpEeDy

Takker ZeroHero og SpEeDy.