close
دانلود فیلم
قرار دادن یک چند ضلعی روی فرم

type
  PtsType = array [0..15, 0..1] of Integer;

const
  Pts: PtsType = ((0, 0), (800, 0), (800, 600),
  (200, 600), (200, 220), (300, 280),
  (265, 205), (350, 117), (205, 170),
  (120, 90), (130, 200), (60, 350), (200, 220),
  (200, 600), (0, 600), (0, 0));

procedure TForm1.Button1Click(Sender: TObject);
var
  HRegion1: THandle;
begin
  HRegion1 := CreatePolygonRgn(Pts, SizeOf(Pts) div 8, alternate);
  SetWindowRgn(Handle, HRegion1, True);
end;

لینک کوتاه پست
مطالب مرتبط با پست جاری
  • نکات مهم
    1- لطفا نظر خود را با زبان فارسی بیان کنید
    2- رایتم نظرات اسپم و تبلیغی شما را تایید نمی کند
    3- لطفا نظرات شما بدون ابهام و واضح باشد
  • نام
    ایمیل (منتشر نمی‌شود) (لازم)
    وبسایت
    :):(;):D;)):X:?:P:*=((:O@};-:B/:):S
    نظر خصوصی
    مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
    کد امنیتی
به کانال تلگرام سایت ما بپیوندید