我現在需要動態生成動態生成SpeedButton組件，并且要撰寫所生成的SpeedButton組件的事件(Click)，請大家幫助一下，寫個實體，謝謝!
uj5u.com熱心網友回復：
private
procedure SpeedButton1Click(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var btn:TspeedButton;
begin
with TspeedButton.Create(self) do
begin
Caption := '請點擊';
Width := 60;
Height := 30;
Name := 'btn1';
Parent := Self;
left := 100;
top:= 100;
OnClick := SpeedButton1Click;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShowMessage(TSpeedButton(sender).Name +'單擊!');
end;
uj5u.com熱心網友回復：
同上。。。。。。uj5u.com熱心網友回復：
那如果已經注入到一個外部程式, 如何在外部程式現有的SpeedButton后面, 再增加一個呢? 并回應clickuj5u.com熱心網友回復：
SpeedButton后面要計算位置，最好是指定。uj5u.com熱心網友回復：
一樓回答正確uj5u.com熱心網友回復：
前一陣子，我做一個軟體，也是這樣實作的，界面大部份是自動生成的，主要控制好生成的位置即可。uj5u.com熱心網友回復：
如果確實需要動態生成事件代碼如樓說所說可以自定一些事件代碼，然后等于事件，
但如果你想動態生成代碼，需要用于SCRIPT JAVA或其它
uj5u.com熱心網友回復：
---------是否可以共享一下代碼 ，一直期待，謝謝，轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/151831.html
標籤：VCL組件開發及應用
下一篇：用Delphi做一個背單詞軟體