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