是否可以在 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;

单击字形时没有任何反应。我知道 Designer IDE 中没有 TGlyph 的 OnClick 事件。但是这个 TGlyph 是从具有 OnClick 的 TControl 派生的。我知道我可以使用 TImage 而不是 TGlyph，但我只是对此感到好奇。

Answer 1

你必须设置

Glyph1.HitTest := true;

让它工作。