改变 TMemo 的背景颜色 (Firemonkey)

<span style="color: #0000ff;">unit<span style="color: #000000;"> Main;

<span style="color: #0000ff;">interface

<span style="color: #0000ff;">uses<span style="color: #000000;">
System.SysUtils,System.Types,System.UITypes,System.Classes,System.Variants,System.UIConsts,FMX.Types,FMX.Controls,FMX.Forms,FMX.Graphics,FMX.Dialogs,FMX.StdCtrls,FMX.Objects,FMX.Layouts,FMX.Memo;

<span style="color: #0000ff;">type<span style="color: #000000;">
TForm1 = <span style="color: #0000ff;">class<span style="color: #000000;">(TForm)
ToolBar1: TToolBar;
Memo1: TMemo;
Label1: TLabel;
<span style="color: #0000ff;">procedure<span style="color: #000000;"> Memo1ApplyStyleLookup(Sender: TObject);
<span style="color: #0000ff;">private
<span style="color: #008000;">{<span style="color: #008000;"> Private declarations <span style="color: #008000;">}
<span style="color: #0000ff;">public
<span style="color: #008000;">{<span style="color: #008000;"> Public declarations <span style="color: #008000;">}
<span style="color: #0000ff;">end<span style="color: #000000;">;

<span style="color: #0000ff;">var<span style="color: #000000;">
Form1: TForm1;

<span style="color: #0000ff;">implementation

<span style="color: #008000;">{<span style="color: #008000;">$R *.fmx<span style="color: #008000;">}

<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.Memo1ApplyStyleLookup(Sender: TObject);
<span style="color: #0000ff;">var<span style="color: #000000;"> Obj: TFmxObject;
Rectangle1: TRectangle;
<span style="color: #0000ff;">begin<span style="color: #000000;">
Obj := Memo1.FindStyleResource(<span style="color: #800000;">'<span style="color: #800000;">background<span style="color: #800000;">'<span style="color: #000000;">);
<span style="color: #0000ff;">if Obj <> <span style="color: #0000ff;">nil <span style="color: #0000ff;">then
<span style="color: #0000ff;">begin<span style="color: #000000;">
TControl(Obj).Margins := TBounds.Create(TRectF.Create(-<span style="color: #800080;">2,-<span style="color: #800080;">2,-<span style="color: #800080;">2<span style="color: #000000;">));
Rectangle1 :=<span style="color: #000000;"> TRectangle.Create(Obj);
Obj.AddObject(Rectangle1);
Rectangle1.Align :=<span style="color: #000000;"> TAlignLayout.Client;
Rectangle1.Fill.Color :=<span style="color: #000000;"> claYellow;
Rectangle1.Stroke.Color :=<span style="color: #000000;"> claNull;
Rectangle1.HitTest :=<span style="color: #000000;"> False;
Rectangle1.SendToBack;
<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">end<span style="color: #000000;">;

<span style="color: #0000ff;">end.