Edit ve buton color

[hido]

Selam; Label dışında edit ve butonun rengi neden değiştirilemez? veya renk değişikliğini ben yanlış mı yapıyorum?

 

  Edit13.TextSettings.Font.Style := [];
  Edit13.TextSettings.FontColor := TAlphaColors.Black;

  Button13.TextSettings.Font.Style := [TFontStyle.fsBold];
  Button13.TextSettings.FontColor := TAlphaColors.Blue;

[TescilsizUzman]

Merhaba,
FMX mimarisinde; 
bir nesnenin metin içeriği veya başlık bilgilerinin Style özellikleri, Design Time'da değiştirildiğinde doğrudan nesneye yansıyor iken, Run Time'da bu özelliklere bir değer atanması, metin stiline doğrudan etki etmiyor.
Çalışma anında bu özelliklerin etkin olması için öncelikle nesnenin StyledSettings özelliğine, hangi stillerin kullanılması gerektiğinin bildirilmesi gerekiyor.

 Button1.StyledSettings := Button1.StyledSettings - [TStyledSetting.FontColor,   TStyledSetting.Style, TStyledSetting.Size];
 Button1.TextSettings.FontColor := TAlphaColors.Blue;
 Button1.TextSettings.Font.Style := [TFontStyle.fsBold];
 Button1.TextSettings.Font.Size := 30;

 Edit1.StyledSettings := Edit1.StyledSettings - [TStyledSetting.Style,   TStyledSetting.FontColor];
 Edit1.TextSettings.Font.Style := [];
 Edit1.TextSettings.FontColor := TAlphaColors.Black;

[hido]

Üstadım elinize sağlık, aklıma bir yöntem geldi her buton için ayrı, ayrı kodları ekleyip kod kalabalığı yapmaktansa function çözmeye çalışayım dedim, fakat çıkamadım işin içinden yardımcı olursanız sevinirim, mouse hangi butondaysa o butonun adını alıp kodların entegre edemedim...

function BtnColor(StrName: String): String;
begin
 StrName.StyledSettings := StrName.StyledSettings - [TStyledSetting.Style,TStyledSetting.FontColor];
 StrName.TextSettings.Font.Style := [];
 StrName.TextSettings.FontColor := TAlphaColors.Black;
end;

procedure TForm1.BtnGirisMouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Single);
begin
 BtnColor(TButton(Sender).Name);
end;

[TescilsizUzman]

Rica ederim.
OnMauseMove olayını aşağıdaki gibi değiştirin.

procedure TForm1.BtnGirisMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Single);
begin
  if Sender is TButton then 
    BtnColor(TButton(Sender));
end;

fonksiyon, procedure olmalı, içeriği ise aşağıdaki gibi olmalıdır.

procedure BtnColor(Buton:TButton);
begin
  Buton.StyledSettings :=Buton.StyledSettings - [TStyledSetting.Style,TStyledSetting.FontColor];
  Buton.TextSettings.Font.Style := [];
  Buton.TextSettings.FontColor := TAlphaColors.Black;
end;