delphi - Firemonkey 风格的 TMemo 没有获得焦点

Question

我在表单上删除了一个TMemo和一个常规TStyleBook。TMemo我通过添加TRectangleto编辑了自定义样式，background因此TMemo现在具有不同的背景颜色，并将TMemo.StyleLookup属性更改为实际StyleName，但在运行时TMemo无法获得焦点。

unit Form1;

interface

type
  TForm1 = class(TForm1)
    Memo1: TMemo;
    StyleBook1: TStyleBook;
  end;

var
  Form1: TForm;

implementation

{$R *.fmx}

end.

我错过了什么？

Answer 1

事实证明，要设置要应用于背景的属性，必须将tMemo原始background项目替换为 atRectangle并StyleName分配给它background。原件内的所有项目background，必须转移到新tRectangle background的，原件必须删除。的Align属性tRectangle background必须设置为 Contents并且项的Align属性contents必须设置为Client。之后，新的任何属性tRectangle background都可以设置为所需的值，它们将在设计和运行时正确显示。最后是的，tMemo可以集中注意力！

StyleContainer
...
Memo1Style1
   ...
   background
   ...
...

background上面，必须是tRectangle