請問 CreatePolygonRgn 如何使用 ? 可有 sample 可參考 chang yung chin

------
chang yung chin

procedure TForm1.Button1Click(Sender: TObject);
var
  P: array[0..2] of TPoint;
  FRegion: HRGN;
begin
  P[0] := Point(0,100);
  P[1] := Point(100,0);
  P[2] := Point(200,100);      FRegion := CreatePolygonRgn(P, 3,ALTERNATE);
  SetWindowRgn(Handle, FRegion, True);
end;

示範一個三角形

譬如：在 Timage1 內插入圖(bmp or jpg),再以多邊形截取圖樣貼至 Timage2 ,請問如何實現 ? chang yung chin

------
chang yung chin

1.CreatePolygonRgn 建立後的 HRGN，目前應沒有 可以拷貝不規則形狀圖片。 2. 無法直接使用 JPEG 。必須轉換為 Bitmap; 3. 利用 Transparent及TransparentColor 屬性。 4. 將建立不規則區域，取 invert 。 5. 再將此區域填滿特別顏色 TransparentColor。 6. 在 Image2 畫上。 參考