我只是将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,但是我只是对此感到好奇。
最佳答案
你必须设置
Glyph1.HitTest := true;
使它工作。
关于delphi - 是否可以在FMX中使用TGlyph的OnClick事件?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/36769764/