وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٠
 
var
Pts: array [1..9] of TPoint;
procedure TForm1.Button2Click(Sender: TObject);
var
I: integer;
hRegion: THandle;
begin
InitSize := Width;
Pts [1] := Point (0, 0);
Pts [2] := Point (Width div 2, 0);
Pts [3] := Point (Width div 2, Height);
Pts [8] := Point (0, Height);
Pts [9] := Point (0, 0);
for i := 0 to 100 do
begin
Left := Left - 1;
Width := Width + 2;
Pts [4] := Point (Width - InitSize div 2, Height);
Pts [5] := Point (Width - InitSize div 2, 0);
Pts [6] := Point (Width, 0);
pts [7] := Point (Width, Height);
HRegion := CreatePolygonRgn (Pts, 9, alternate);
SetWindowRgn (Handle, HRegion, True);
Application.ProcessMessages;
end;
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :