Problem mit TControl.Color

[Quake]

Hallo,

ich habe zwar schon die Suche benutzt aber nichts gefunden.

Ich nutzte Delphi 7.

Warum kann ich einem TControl keine Farbe zuordnen. Ich bekomme die Fehlermeldung "Undefinierter Bezeichner Color". Schaue ich in die Onlinehilfe, ist Color aber eine Eigenschaft von TControl.

Delphi-Quellcode:

var
  x: TControl;
begin
  x.color := clBlue;

[DeddyH]

Es ist aber eine protected-Eigenschaft.

[Quake]

In der Hilfe steht :
property Color: TColor Sind Propertys nicht generel Public?

[DeddyH]

Nein.

[Quake]

Danke erstmal

Hast du auch noch für mich einen kleinen Tipp, wie ich die Farbe von einem unbekannten TControl verändern kann? Ich dachte eigendlich folgendes zu machen :

Delphi-Quellcode:

  for i := 0 to MyGroup.ControlCount-1 do
  begin
      MyGroup.Controls[i].Color := clred;
  end;

[DeddyH]

Evtl. per RTTI?

[Sherlock]

Zitat von Quake:

Danke erstmal

Hast du auch noch für mich einen kleinen Tipp, wie ich die Farbe von einem unbekannten TControl verändern kann? Ich dachte eigendlich folgendes zu machen :

Delphi-Quellcode:

  for i := 0 to MyGroup.ControlCount-1 do
  begin
      MyGroup.Controls[i].Color := clred;
  end;

Ist das überhaupt sinnvoll? Labels sollte man zB eher über label.font.color einfärben.
Vielleicht solltest Du Dir eine Routine machen, die je nach Control einfärbt.

Delphi-Quellcode:

  for i := 0 to MyGroup.ControlCount-1 do
  begin
      if MyGroup.Controls[i] is TLabel then
         TLabel(MyGroup.Controls[i]).Font.Color := clred;
      if MyGroup.Controls[i] is TCheckBox then
         TCheckBox(MyGroup.Controls[i]).Color := clred;
// etc.
  end;

[Quake]

Mein Beispiel ist auch nur ein Pseudocode. TLabel habe ich schon ausgeklammert. Ich wollte jetzt aber nicht für alle möglichen Controls (Edit, Spin, Checkbox usw.) eine if then Abfrage machen. Das ist mir zu aufwendig .

[shmia]

Delphi-Quellcode:

type
  TControlCracker=class(TControl);
var 
  x: TControl; 
begin 
  // der Trick: protected Properties werden so zugänglich
  TControlCracker(x).color := clBlue;

[Quake]

Ich finde solch eine Methode zwar beknackt und umständlich , aber vielen Dank so funktioniert es, so werde ich es machen. Also vielen Dank nochmal.