Delphi 2005 und CreateEllipticRgn

[striderx]

Hallo,

ich bin vor kurzem von Delphi 7 auf Delphi 2005 Pro unter Windows 7 umgestiegen (ich habe zwar auch Delphi 2009 aber noch keine Lust, alles auf Unicode umzustellen). Alles klappt wunderbar, nur CreateEllipticRgn bleibt ohne Effekt (d. h. rechteckig).

Delphi-Quellcode:

procedure TDlgSplash.FormCreate(Sender: TObject);

var
  NewRegion: Hrgn;

begin
  NewRegion := CreateEllipticRgn(1, 1, 500, 500);
  SetWindowRgn(Handle, NewRegion, True);
end;

P. S.: Beim alten Kompilat des Programms ist alles 'rund'.

[striderx]

Falls er jemanden intersssiert:

Wenn man den Code unter FormActivate ausführen läßt, dann klappt es.

Warum das so ist, ist mir aber ein absolutes Rätsel.