是否可以在 FMX 中为 TGlyph 设置有效的 OnClick 事件？

Question

我只是将 TGlyph 的一个实例放在 FMX 表单上并测试了这段代码。

procedure TForm1.FormCreate(Sender: TObject);
begin
  Glyph1.OnClick:=myClick;  
end;

procedure TForm1.myClick(Sender: TObject);
begin
  ShowMessage('test');
end;

单击字形时没有任何反应。我知道在设计器 IDE 中没有 TGlyph 的 OnClick 事件。但是这个 TGlyph 派生自具有 OnClick 的 TControl。我知道我可以使用 TImage 而不是 TGlyph，但我对此很好奇。

Answer 1

你必须设置

Glyph1.HitTest := true;

使其发挥作用。

是否可以在 FMX 中为 TGlyph 设置有效的 OnClick 事件？

Is it possible to have working OnClick event for TGlyph in FMX?

delphi

firemonkey

delphi-xe8