Uses RzBckgnd,RzBmpBtn;
procedure MyButtonClick(Sender: TObject);
procedure MyButtonMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DrawDeskPanel(AParent: TScrollBox; ADataSet: TDataSet);
procedure SetUsingDesk(AScrollBox: TScrollBox; ACaption: string);
procedure SetDefaultDesk(AScrollBox: TScrollBox);����
����
����
procedure TForm1.MyButtonClick(Sender: TObject);
begin
if Sender is TRzBmpButton then
showmessage((Sender as TRzBmpButton).Caption);
end;
procedure TForm1.MyButtonMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
i, j: integer;
begin
if Sender is TRzBmpButton then
begin
with (Sender as TRzBmpButton).Parent.Parent do // (Sender as
TRzBmpButton).Parent.Parent Ϊ TScrollBox
begin
for i := 0 to ControlCount-1 do
begin
if Controls[i] is TPanel then
begin
for j := 0 to TPanel(Controls[i]).ControlCount-1 do
if TPanel(Controls[i]).Controls[j] is TRzBmpButton then // ������
Panel е RzBmpButton ΪĬ ϵ� � �������� � �
begin
TRzBmpButton(TPanel(Controls[i]).Controls[j]).Font.Size := 10;
TRzBmpButton(TPanel(Controls[i]).Controls[j]).Font.Color :=
clWindowText;
end;
end;
end;
end;
(Sender as TRzBmpButton).Font.Color := clRed; // ǰ RzBmpButton ����
Ϊ ɫ�������� ��
(Sender as TRzBmpButton).Font.Size := 14;
end;
end;
procedure TForm1.SetUsingDesk(AScrollBox: TScrollBox; ACaption: string);
var
i, j, k: integer;
begin
SetDefaultDesk(AScrollBox); // ȫ ΪĬ���� ���� ��ֵ
for i := 0 to AScrollBox.ControlCount-1 do
begin
if AScrollBox.Controls[i] is TPanel then
begin
for j := 0 to TPanel(AScrollBox.Controls[i]).ControlCount-1 do
begin
if TPanel(AScrollBox.Controls[i]).Controls[j] is TRzBmpButton then
// Panel еĿ������ � ؼ��Dz TRzBmpButton ��� ��
begin