是否可以在FMX中为TGlyph工作OnClick事件？

Question

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

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; 

，使其工作。