Checkbox caption fontunun renk kontrolü

[Berdem]

Merhaba,
Edit geçişlerinde renk değişikliği yaparken, checkboxın caption renk değişikliği yapmak istiyorum.Hiç bir şekilde rengini kontrol edemiyorum.
Sevgi ve Saygılarımla...

Kod: Tümünü seç

procedure TForm1.OnFieldEnter(Sender: TObject);
begin
 if (Sender is TCustomEdit) then
    TEdit(Sender).Color := clFocused;
 if (Sender is TDateTimePicker) then
    TDateTimePicker(Sender).Color := clFocused;
 if (Sender is TSpinEdit) then
    TSpinEdit(Sender).Color := clFocused;
 if (Sender is TDBComboBox) then
    TDBComboBox(Sender).Color := clFocused;
 if (Sender is TCheckBox) then
    TCheckBox(Sender).Font.Color := clFocused;
end;

procedure TForm1.OnFieldExit(Sender: TObject);
begin
  if (Sender is TCustomEdit) then
    TEdit(Sender).Color := clBlurred;
  if (Sender is TDateTimePicker) then
    TDateTimePicker(Sender).Color := clBlurred;
  if (Sender is TSpinEdit) then
    TSpinEdit(Sender).Color := clBlurred;
  if (Sender is TDBComboBox) then
    TDBComboBox(Sender).Color := clBlurred;
 if (Sender is TCheckBox) then
    TCheckBox(Sender).Font.Color := clBlack;
end;

[aslangeri]

s.a.
ilginç.?

Kod: Tümünü seç

(sender as tcheckbox).font.color:=clred;

şeklinde deniyebilirmisiniz?

kolay gelsin.

[Berdem]

a.s.
Çok Teşekkürler kardeş.
Gerçektende....
Bu delphiye ne oldu anlamadım...
Çalıştığım projede verdiğiniz kod çalışmıyor ...Fakat yeni bir projede denediğimde çalışıyor. Acaba checkbox yüklediğim olaylarda kısıtlama yapıyor düşündüm, olayları kapattım yine çözülmüyor.herhalde çözemiyecem farklı bir yol deneyim...