Farbe des Textes im Button verändern

[eddy]

Hallo franktron,

alle ignorieren Dich !!

Wahrscheinlich ist die Deine Antwort zu unauffällig.

Code:

procedure TFBP.SpeedButton2Click(Sender: TObject);
begin
  if SpeedButton1font.color = clWindowText then begin
    SpeedButton1font.color := clRed;
    SpeedButton1Font.Style := SpeedButton1Font.Style + [fsbold];
  end
  else begin
    SpeedButton1font.color:=clWindowText;
    SpeedButton1Font.Style := SpeedButton1Font.Style - [fsbold];
  end;
end;

Funktioniert super !

mfg
eddy