unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Memo1: TMemo;
Panel1: TPanel;
ToggleBox1: TToggleBox;
procedure ToggleBox1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.ToggleBox1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to Pred(Panel1.ControlCount) do
begin
if (Sender as TToggleBox).Checked then
begin
case Panel1.Controls[i].ClassName of
'TEdit' : (Panel1.Controls[i] as TEdit).Color := clRed;
'TMemo' : (Panel1.Controls[i] as TMemo).Color := clYellow;
end;
end
else
begin
case Panel1.Controls[i].ClassName of
'TEdit' : (Panel1.Controls[i] as TEdit).Color := clBlue;
'TMemo' : (Panel1.Controls[i] as TMemo).Color := clGreen;
end;
end;
end;
end;
end.