Hvad mener du?
Hvis du mener at gøre din form rund. Brug disse:
Laver et hul så du kan se igennem formen
type
PtsType = array [0..15, 0..1] of Integer;
const
Pts: PtsType = ((0, 0), (800, 0), (800, 600),
(200, 600), (200, 220), (300, 280),
(265, 205), (350, 117), (205, 170),
(120, 90), (130, 200), (60, 350), (200, 220),
(200, 600), (0, 600), (0, 0));
procedure TForm1.Button2Click(Sender: TObject);
var
HRegion1: THandle;
begin
HRegion1 := CreatePolygonRgn(Pts, SizeOf(Pts) div 8, alternate);
SetWindowRgn(Handle, HRegion1, True);
Denne kode gør din form rund.
Points[5].X := w; Points[5].Y := h - c;
Points[6].X := w; Points[6].Y := C;
Points[7].X := w - C; Points[7].Y := 0;
SetWindowRgn(Form1.Handle, CreatePolygonRgn(Points, 8, WINDING), True);
end;
Laver din form gennemsigtig
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.alphablendvalue := 100;
form1.alphablend := true;
end;
//kan også bare laves i opjekt inspekteren
Du kan også ændre en masse funktioner i opjekt inspekteren.
Eller du kan vel tegne et flot design i PhotoShop
Shafh
Shafh@stofanet.dk
Theis F. Hinz
En professionel er en person, som kan gøre sit bedste på tidspunkter,hvor han ikke ligefrem føler for det.
[Redigeret d. 29/06-04 13:45:44 af Shafh]