Delphi-PRAXiS - Delphi Delphi 2005 und CreateEllipticRgn

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi Delphi 2005 und CreateEllipticRgn (https://www.delphipraxis.net/144940-delphi-2005-und-createellipticrgn.html)

Delphi 2005 und CreateEllipticRgn

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'.

Re: Delphi 2005 und CreateEllipticRgn [gelöst]

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.