TShape元件預設沒有OnClick事件,網路上看到解法XD
加上下面的語法,把onClick封印解除就行了
[pascal]
type
TShape = class(ExtCtrls.TShape)
published
property OnClick;
end;
[/pascal]
大型網站架構..net 架構師.rabbitMQ.redis.行動開發.APP開發教學.PHP Laravel開發..net core C# 開發.架構師之路.Delphi開發.資料庫程式.進銷存.餐飲POS系統
TShape元件預設沒有OnClick事件,網路上看到解法XD
加上下面的語法,把onClick封印解除就行了
[pascal]
type
TShape = class(ExtCtrls.TShape)
published
property OnClick;
end;
[/pascal]