Gennemsigtig del af en form

lytter med..

Det som det handler om er, at du skal definere din form som en polygon, med et hul i.

Her er et eksempel :

var
  Points      : array[0..9] of TPoint;
  RegionHandle : integer;
begin
  with MainForm do
  begin
    Points[0] := Point(0,0);
    Points[1] := Point(Width, 0);
    Points[2] := Point(Width, 100);
    Points[3] := Point(100,100);
    Points[4] := Point(100,200);
    Points[5] := Point(200,200);
    Points[6] := Point(200,100);
    Points[7] := Point(Width,100);
    Points[8] := Point(Width,Height);
    Points[9] := Point(0,Height);

    RegionHandle := CreatePolygonRgn(Points, 10, ALTERNATE);

    SetWindowRgn(Handle, RegionHandle, True);
  end;
end;

har en component som gør det,kan sættet som firkant,runde hjørner,oval osv.
stone

obs.
virker kun i delphi 3

stone

jaller => jeg prøver det lige og vender tilbage

stone => ja, det skal være D5

jaller = > Det ser brandgodt ud. Du får pointene.

Og du (eller en anden) kan få 60 mere hvis du kan hjælpe mig med at ændre det til et rundt billede med et gennemsigtigt hul i midten.

Hej jno

Det runde billede laver du nemmest ved at lade dit billed være transparent.

Hullet kan du lave rundt, ved at benytte CreateEllipticRgn(Left, Top, Right, Bottom) i stedet for CreatePolygonRgn.