Cirkel Form

Ved hjælp af Win32 region funktionerne. Har desværre ikke et konkret eksempel ved hånden lige her og nu.

Hej,

Se på DSP (Delphi Super Page). Der er en komponent der tillader dig at give dine forms alle mulige forskellige formater fra normale rektangler med runde hjørner til cirkler, gennemsigtige eller ej.

Søg under delphi 3 og 4 eller se i afsnittene vedr. forms.

NB! Der er intet indbygget i Delphi der kan gøre det.

Hilsen
sjensen

Hvis det er til professionel brug så benyt 1st class component fra woll2woll. DET ER BARE ET GENIALT PRODUKT

Hej

sådan laver du en cirkel:

under USES tilføj MASK hvis den ikke allerede er der.

//... lav følgende procedure

procedure Tform1.CreateElliptic(handle: THandle);
var
  RegionHandle : THandle;
begin
  {creates an Elliptic Region}
  RegionHandle := CreateEllipticRgn(3,3,500,500);
  SetWindowRgn(Handle,RegionHandle,True);
end;

// Indsæt et kald til den procedure under Oncreate på formen der skal være cirkelformet

procedure TForm1.FormCreate(Sender: TObject);
begin
createelliptic(form1.handle);
end;

Mvh. _DJ_ / IRC:#delphi

Du kan med SetWindowRgn og CreatePolygonRgn lave en form der ikke beøver at have et alm. geometrisk udseende.  Jeg har engang lavet en SplashScreen der ligende et logo, der oprindeligt var scannet og derefter tilføjet noget extra text i PaintShopPro - meget blæret (og helt unødvendigt).

Delphi