[Delphi] 動態產生,刪除元件及觸發事件

admin

以下是動態產生及刪除元件例子，當按 butCreate 時，Panel1 內便會動態產生 button，按 butRemove 時，便自動刪除剛產生的 button，MaxValue 決定可以產生元件 (label) 的最多數量 ，加入了 butarray[but_i].OnClick 後，在這些動態產生的 button 上按 click，會觸發自行定義的Procedure butarrayAction, 由於 Click 所有動態產生的 button 都是觸發 butarrayAction，我們利用 Sender 的 tag 來判斷是 Click 了哪一個Button 觸發 butarrayAction。

本帖隱藏的內容需要回復才可以瀏覽