Form sieht nach Programmstart anders aus

[-=cats=-]

Hier ist mal mein gesamter Quellcode

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var HR : HRgn;
 n : array [0..27] of TPoint;
begin
  n[0] := Point(Width div 2, Height -20); // P1
  n[1] := Point(Width div 2 + 40, Height - 24); // P2
  n[2] := Point(Width div 2 + 40, Height - 44); // P3
  n[3] := Point(Width div 2 + 80, Height - 48); // P4
  n[4] := Point(Width div 2 + 80, Height - 68); // P5
  n[5] := Point(Width div 2 + 40, Height - 72); // P6
  n[6] := Point(Width div 2 + 40, Height - 92); // P7
  n[7] := Point(Width div 2 + 80, Height - 96); // P8
  n[8] := Point(Width div 2 + 80, Height - 116); // P9
  n[9] := Point(Width div 2 + 40, Height - 120); // P10
  n[10] := Point(Width div 2 + 40, Height - 140); // P11
  n[11] := Point(Width div 2 + 80, Height - 144); // P12
  n[12] := Point(Width div 2 + 80, Height - 164); // P13
  n[13] := Point(Width div 2 + 40, Height - 168); // P14
  n[14] := Point(Width div 2, Height - 164); // P15
  n[15] := Point(Width div 2 - 40, Height - 168); // P16
  n[16] := Point(Width div 2 - 80, Height - 164); // P17
  n[17] := Point(Width div 2 - 80, Height - 144); // P18
  n[18] := Point(Width div 2 - 40, Height - 140); // P19
  n[19] := Point(Width div 2 - 40, Height - 120); // P20
  n[20] := Point(Width div 2 - 80, Height - 116); // P21
  n[21] := Point(Width div 2 - 80, Height - 96); // P22
  n[22] := Point(Width div 2 - 40, Height - 92); // P23
  n[23] := Point(Width div 2 - 40, Height - 72); // P24
  n[24] := Point(Width div 2 - 80, Height - 68); // P25
  n[25] := Point(Width div 2 - 80, Height - 48); // P26
  n[26] := Point(Width div 2 - 40, Height - 44); // P27
  n[27] := Point(Width div 2 - 40, Height - 24); // P28

  HR := CreatePolygonRgn(n, 28, ALTERNATE);
  SetWindowRgn(Handle, HR, true);
end;

XPStyles nehme ich soweit ich weiß nicht ...