begin
form1.Caption:='白色背景';
form1.Color:=clwhite
end;
procedureTForm1.Button4Click(Sender:TObject);
begin
form1.Caption:='蓝色背景';
form1.Color:=clblue
end;
procedureTForm1.Button5Click(Sender:TObject);
begin
form1.Caption:='黄色背景';
form1.Color:=clyellow
end;
procedureTForm1.Button6Click(Sender:TObject);
begin
form1.Caption:='绿色背景';
form1.Color:=clgreen
end;
procedureTForm1.Button3Click(Sender:TObject);
begin
form1.Close
end;
end.
第一次用它编了个小代码，心里还是挺高兴的。