Delphi之三十六计之界面篇

procedure TForm1.FormPaint(Sender: TObject);

　　var

　　　x, y: Integer;
　　　iBMWid, iBMHeight : Integer;
　　begin
　　　iBMWid := Image1.Width;
　　　iBMHeight := Image1.Height;
　　　y := 0;
　　　while y $#@60; Height do

　　begin
　　　x := 0;
　　　while x $#@60; Width do
　　　begin
　　　Canvas.Draw(x, y, Image1.Picture.Bitmap);
　　　x := x + iBMWid;
　　end;
　　　y := y + iBMHeight;
　　end;

　　end;

　　3．创建异形窗体

　//例：画圆角矩形窗口

　procedure TForm1.DrawRndRectRegion;

　　var
　　　rgn: HRgn;
　　　Rect: TRect;
　　begin
　　　Rect := Self.Canvas.ClipRect;
　　　rgn := CreateRoundRectRgn(rect.left, rect.top, rect.right, rect.bottom, 30, 30);
　　　SetWindowRgn(Self.Handle, rgn, TRUE);

　　end;

　其它：CreateEllipticRgn（椭圆），CreatePolygonRgn（多边形）略。