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

，使其工作。