1Panel,3Edit,2Radiobutton,1button ekleyerek,gerekle işlemleri yapıp butona tıklandığında panelin zemin ve yazı tipini değiştiren programın kodu.
Kodu;
procedure TForm1.Button1Click(Sender: TObject);
var r,g,b : Integer;
begin
r := StrToInt(Edit1.Text);
g := StrToInt(Edit2.Text);
b := StrToInt(Edit3.Text);
if RadioButton1.Checked then
Panel1.Color := rgb(r,g,b);
if RadioButton2.Checked then
panel1.Font.Color := rgb(r,g,b);
end;
end.
