cambiar color de caption al presionar

[alfredosg19]

Hola, con este ejemplo cambias el color de fondo cada vez que presionas el botón.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
color: integer;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
color:=color+1;
if color=1 then
Label1.Color:=clRed;
if color=2 then
Label1.Color:=clWhite;
if color=3 then
Label1.Color:=clBlack;
if color=4 then
Label1.Color:=clBlue;
if color=5 then
Label1.Color:=clGreen;
if color=6 then
Label1.Color:=clOlive;
if color=7 then
Label1.Color:=clYellow;
if color=8 then
Label1.Color:=clNavy;
if color=9 then
Label1.Color:=clPurple;
if color=10 then
color:=0;

end;

end.

Saludos.