Pointarray

[Hawkeye219]

Zitat von Muetze1:

Wenn CreatePolygonRgn das Pointer Array als Const deklariert hat, dann geht folgendes:

Rgn := CreatePolygonRgn([Point(192, 70), Point(185,100), Point(162,99), Point(157,62)],4,winding)

Leider funktioniert das auch in Delphi 2006 nur mit ordinalen Werten.

Folgendes sollte ab Delphi 2006 (2005?) funktionieren:

Delphi-Quellcode:

type
  TDynPointArray = array of TPoint;

procedure TForm1.Button1Click(Sender: TObject);
var
  Rgn : HRGN;
  Points : TDynPointArray;
begin
  Points := TDynPointArray.Create(Point(192, 70), Point(185, 100), Point(162, 99), Point(157, 62));
  Rgn := CreatePolygonRgn(Points, 4, WINDING);
end;

Wenn du nur Konstanten übergeben möchtest, wäre aber vielleicht eine lokale Arraykonstante die einfachere Lösung.

Gruß Hawkeye