TDBEdit Disabled Color setzen

[RB]

Hallo,

ich habe ein TDBEdit bjekt und möchte es gerne erreichen das die Farbe nicht clGrayText ist wenn ich TDBEdit.Enabled auf False setze. Dazu habe ich hier schon im Forum gesucht aber leider nur was zu TEdit gefunden was nicht bei TDBEdit funktioniert. Folgender Artikel von Borland konnte mir auch nicht weiterhelfen:

http://community.borland.com/article/0,1410,16607,00.html

Hat dazu jemand eine Problemlösung?

Gruß RB

[Jörg Prepadnik]

Probier das mal:<br>
<br>
<PRE>
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to ControlCount - 1 do
if (Components[i] is TDBEdit) then begin
if (Components[i] as TDBEdit).Enabled then
(Components[i] as TDBEdit).Color := clWindow;
else
(Components[i] as TDBEdit).Color := clBtnFace;
end;
end;
</PRE&gt

[RB]

Hi...

sorry ich hatte das wichtigste vergessen! Ich muss die Textfarbe natürlich ändern. Mit deiner Lösung funktioniert es leider auch nicht!

Gruß Raine

[Jörg Prepadnik]

Dann muss statt Color Font.Color gesetzt werden.<br&gt

[Hans-Albert Müller]

Hallo und guten Tag, habe obigen Tipp mal mit Font.Color ausprobiert.Geht leider nicht. Nur die
im Enabled-Zustand verändert sich die Font.Color.
Weiß jemand etwas neues?

Vielen Dank,

Han

[wp]

Falls es Dich nicht stört, dass man den Text im "disabled"-Zustand weiterhin mit der Maus markieren kann (ist manchmal sogar wünschenswert!), dann verwende das Property "ReadOnly" statt "Enabled", um den "disabled"-Zustand zu simulieren.

Gruß, Werne