Delphi动态创建多个控件和设置圆角

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26


type
TMyRect = record
    Top: Integer;
    Left: Integer;
    Width: Integer;
    Height: Integer;
    frame: TFrameCard;
  end;   //定义类
var
myre: array of TMyRect;  //定义类的数组，此处为动态
                        //数组，故使用前需要用SetLength设置
                        //数组元素个数
procedure XXXX
var
  Hrgn: THandle;
begin
  myre[i].frame := TFrameCard.Create(nil); //用循环存储创建的对象
  myre[i].frame.Top := myre[i].Top;
  myre[i].frame.Left := myre[i].Left;
  myre[i].frame.Width := myre[i].Width;
  myre[i].frame.Height := myre[i].Height;
  myre[i].frame.Parent := Main.ScrollBox1;  //设定归属和位置
  Hrgn := CreateRoundRectRgn(0, 0, myre[i].frame.Width,     myre[i].frame.height,20, 20);
  SetWindowRgn(myre[i].frame.Handle, Hrgn, true);
  DeleteObject(Hrgn);     //设置圆角
end;