Button Caption farbe ändern

[Davidlocke13]

Morgen und Hallo

ich möchte einen Button zur Laufzeit erstellen was auch so weit klappt!

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
Button: TButton;
begin
  Button            := TButton.Create(Self);
  Button.Parent     := Self;
  Button.Top        := 100;
  Button.Left       := 100;
  Button.Width      := 100;
  Button.Height     := 100;
  Button.Caption    := 'Button';
end;

Aber jetzt wollte ich auch noch die Caption also Textfarbe ändern und habe folgenden Probiert:

Code:

Button.Font.Color := clRed;

Wieso funktioniert das nicht ?

Ich habe hier noch nix dazu gefunden

Liebe Grüße

[DeddyH]

Du hast wahrscheinlich die Laufzeitthemes aktiviert. In dem Fall ignoriert Windows solche Einstellungen mal eben so einfach. Du kannst also entweder die Laufzeitthemes komplett deaktivieren, nur für den einzelnen Button oder einen eigenen Button verwenden, der nicht auf dem Windows-Standardbutton aufsetzt und gänzlich in Eigenregie gezeichnet wird.

[lbccaleb]

So wie DaddyH schon gesagt hat, Windows wird sich darum kümmern die Buttons selber anzupassen. Was auch gut so ist!
Ich hatte so ein ähnliches Problem mit Tabs.

Also, entweder selber zeichnen, oder die Themes für den besagt Button, abschalten.
Dann kommst du aber wahrscheinlich nicht drum rum, das allerdings auch für andere Buttons zu tun, da die sich sonnst event. Unterscheiden je nach Theme.

Edit:

Hier sonst nen Bsp fürs Selberzeichnen:
http://www.delphipraxis.net/397294-post.html#469865

[Davidlocke13]

Danke soweit erstmal