cambiar color de caption al presionar

[unko!]

olas, alguien sabe como cambiar el color del caption a un label presionando un boton?

[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.

[unko!]

yeah, vaya ke me sirvio bro, thanx

[unko!]

oh! el kodigo ke me pasaste es para cambiar el color ke esta alrededor del label... este es el ke kambia el color de la letra:

procedure TForm1.Button1Click(Sender: TObject);
 begin
 label1.font.Color:=clred;
 end;
 
 end.

este sucede cuando le doi click a un boton.

thanx de nuevo alfredosg19

[alfredosg19]

Y disculpa que en la pregunta no te entendí bien, pero veo que ya descubriste como cambiar el color de la letra (como otras propiedades). Hasta pronto .