//动态创建数组控件;和动态绑定它的事件、 （这里为了在Panel画颜色，引用了Raize里面的RzPanel）
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
ExtCtrls, Buttons, PanelGroup, RzPanel, RzButton,RzComMon;
type
TForm1 =
class(TForm)
Button1:
TButton;
BitBtn1:
TBitBtn;
Image1:
TImage;
Bevel1:
TBevel;
RzPanel1:
TRzPanel;
procedure
FormCreate(Sender: TObject);
private
{
Private declarations }
public
procedure
PanelOnEnter(Sender: TObject);
procedure
PanelOnClick(Sender: TObject);
end;
var
Form1:
TForm1;
RzPanel :
array[0..31,0..6] of
TRzPanel;
implementation
{$R *.dfm}
//创建色板
procedure TForm1.FormCreate(Sender: TObject);
var
I,j : integer;
str,R,G,B: string;
begin
for i:=0
to 31 do
begin
for
j:=0 to 6 do
begin
RzPanel[i][j]:= TRzPanel.Create(nil);
RzPanel[i][j].Parent :=Form1;
RzPanel[i][j].Top := j*(RzPanel[i][j].Top +30)+15;
RzPanel[i][j].Height := 23;
RzPanel[i][j].Width :=23;
RzPanel[i][j].Left := i* (RzPanel[i][j].Width+5) + 60;
RzPanel[i][j].ShowHint := true;
RzPanel[i][j].BorderOuter := fsNone;
RzPanel[i][j].BorderColor := clActiveBorder;
RzPanel[i][j].BorderWidth := 1;
RzPanel[i][j].OnMouseEnter := PanelOnEnter;
RzPanel[i][j].OnClick := PanelOnClick;
end;
RzPanel[i][0].Color := RGB(255,255,255-i*2);
str
:= ‘$‘;
R :=
format(‘%0x‘,[ord(255)]);
G :=
format(‘%0x‘,[ord(255)]);
B :=
format(‘%0x‘,[ord(255-i*2)]);
RzPanel[i][0].Hint := Str + R +G +B;
RzPanel[i][1].Color := RGB(255,255-i*2,255);
R :=
format(‘%0x‘,[ord(255)]);
G :=
format(‘%0x‘,[ord(255-i*2)]);
B :=
format(‘%0x‘,[ord(255)]);
RzPanel[i][1].Hint := Str + R +G +B;
RzPanel[i][2].Color := RGB(255,255-i*2,255-i*2);
R :=
format(‘%0x‘,[ord(255)]);
G :=
format(‘%0x‘,[ord(255-i*2)]);
B :=
format(‘%0x‘,[ord(255-i*2)]);
RzPanel[i][2].Hint
:= Str + R +G +B;
RzPanel[i][3].Color := RGB(255-i*2,255,255);
R :=
format(‘%0x‘,[ord(255-i*2)]);
G :=
format(‘%0x‘,[ord(255)]);
B :=
format(‘%0x‘,[ord(255)]);
RzPanel[i][3].Hint := Str + R +G +B;
RzPanel[i][4].Color := RGB(255-i*2,255,255-i*2);
R :=
format(‘%0x‘,[ord(255-i*2)]);
G :=
format(‘%0x‘,[ord(255)]);
B :=
format(‘%0x‘,[ord(255-i*2)]);
RzPanel[i][4].Hint := Str + R +G +B;
RzPanel[i][5].Color := RGB(255-i*2,255-i*2,255);
R :=
format(‘%0x‘,[ord(255-i*2)]);
G :=
format(‘%0x‘,[ord(255-i*2)]);
B :=
format(‘%0x‘,[ord(255)]);
RzPanel[i][5].Hint := Str + R +G +B;
RzPanel[i][6].Color := RGB(255-i*2,255-i*2,255-i*2);
R :=
format(‘%0x‘,[ord(255-i*2)]);
G :=
format(‘%0x‘,[ord(255-i*2)]);
B :=
format(‘%0x‘,[ord(255-i*2)]);
RzPanel[i][6].Hint := Str + R +G +B;
end;
end;
动态创建Ⅱ