是否有可能在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来自TControl，它有OnClick。我知道我可以使用TImage而不是TGlyph，但我只是对此感到高兴。

Answer 1

你必须设置

Glyph1.HitTest := true;

让它发挥作用。