Foros Club Delphi - cambiar color de caption al presionar

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - cambiar color de caption al presionar (https://www.clubdelphi.com/foros/showthread.php?t=19396)

cambiar color de caption al presionar

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

Cambiar el color de Fondo.

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

Cita:

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.

yeah, vaya ke me sirvio bro, thanx :D

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:

Código:

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 :D

Me alegro que te sirviera.

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 ;) .