Delphi 11.2: Schriftfarbe bei einem TPanel während der Laufzeit ändern

[heindaddel]

Hallo, ich möchte bei einem TPanel während der Laufzeit die Textfarbe ändern. Beispiel: Ich gebe berechnete Werte in dem TPanel 'paZahlAusgeben' aus. Ist die Berechnung nicht korrekt, soll in dem TPanel 'paZahlAusgeben' das Wort 'Fehler' in rot erscheinen. Bei der folgenden Zuweisung 'paZahlAusgeben.Font.Color := clred;' erscheint das Wort 'Fehler' NICHT in rot. Hast Du einen Tip für mich, wie ich dieses Problem beseitigen kann? LG Hein

[mmw]

Hallo,
bei der Eigenschaft 'StyleElements' 'seFont' abwählen

sollte helfen.

Gruß

[jaenicke]

Ein Panel ist dafür schlicht die falsche Komponente. Man bekommt es zwar hin, aber sinnvoller ist dafür z.B. TStaticText oder man legt ein TLabel auf ein TPanel.

[heindaddel]

Hallo, ich habe das Problem gefunden. Es liegt am Style 'Dark Mode' von Delphi. Im Style 'Window' von Delphi funktioniert alles normal. LG Hein

[Benmik]

Zitat:

Zitat von jaenicke (Beitrag 1530649)

Ein Panel ist dafür schlicht die falsche Komponente. Man bekommt es zwar hin, aber sinnvoller ist dafür z.B. TStaticText oder man legt ein TLabel auf ein TPanel.

Diese Ansicht erstaunt mich und ich kann sie nicht teilen. Warum sollte ein TPanel keinen Text anzeigen? Und ein TLabel darüber zu legen, das erscheint mir absurd.

[Uwe Raabe]

Zitat:

Zitat von Benmik (Beitrag 1530707)

Diese Ansicht erstaunt mich und ich kann sie nicht teilen.

Der Vorteil von Ansichten ist ja gerade, dass jeder eine andere haben kann.

Ein Nachteil bei der Verwendung eines Panels zum Anzeigen eines Textes mit vom Standard abweichender Farbe (wie in diesem Fall) ist, dass alle Childs in dem Panel den geänderten Font erben solange ihr ParentFont = True ist. Es ist also genau die aktuelle Frage, die gegen eine Verwendung eines Panels zur Textausgabe spricht. Man kann jetzt argumentieren, dass man eben keine Childs in dem Panel hat - aber auch nie haben wird?

[himitsu]

Ich würde mich ja freuen, wenn die Caption nicht mehr standardmäßig gefüllt wird, bzw. wenn ShowCaption per Standard auf False stünde.
Fast nie wird die Caption von irgendwem benutzt, da Panel ja eigentlich keine Textanzeigekomponente, sondern eine Sammelkomponente für andere Komponenten ist.
Für Text nimmt man TLabel oder TStaticText (oder auch mal ein TEdit ohne Rahmen, für selektierbaren/kopierbaren Text, siehe die Dateieigenschaften im Explorer)

[freimatz]

Zitat:

Zitat von Uwe Raabe (Beitrag 1530713)

Zitat:

Zitat von Benmik (Beitrag 1530707)

Diese Ansicht erstaunt mich und ich kann sie nicht teilen.

Der Vorteil von Ansichten ist ja gerade, dass jeder eine andere haben kann.

Meine Ansicht ist, dass man es in der Regel einfacher hat und Probleme vermeidet, wenn man Dinge dazu verwendet wofür sie auch gemacht sind. :-D
Dazu gibt es eine Doku vom Hersteller (z.B. https://docwiki.embarcadero.com/Libr...xtCtrls.TPanel)

[dummzeuch]

Zitat:

Zitat von himitsu (Beitrag 1530715)

Ich würde mich ja freuen, wenn die Caption nicht mehr standardmäßig gefüllt wird, bzw. wenn ShowCaption per Standard auf False stünde.

Ich könnte da ein Tool empfehlen, das u.a. dies erlaubt. Soll ich?

OK: GExperts, Rename Components Expert. Für TPanel unter Other Properties Caption='' setzen.
Das gleiche geht z.B. auch mit TEdit, da setze ich dann Text=''. Oder TLabel, mit Caption='', so dass man die direkt in diesem Dialog eingeben kann.

Diese Funktion ist eine der ersten, die ich vor vielen Jahren zu GExperts beigetragen habe.

Edit: Es gibt auch noch den Set Component Properties Expert: Darüber geht es vermutlich auch, aber der Rename Components Expert hat den Vorteil, dass man dort auch gleich den neuen Wert eingeben kann, wenn man das will.

[himitsu]

Wenn von Haus aus bereits leer, dann würde wohl niemand mehr auf die Idee kommen diesen Caption benutzen zu wollen. :stupid: