delphi动态创建控件怎么写事件

比如动态创建的Combox:TCombox

procedure OnComboxChange(Sender:TObject)

begin

end

Combox.OnChange:=OnComboxChange

注：事件要一致。包控参数个数，类型，返回值。

我不知道你要增加什么内容但是可以给你个写的例子你就明白了；

我也说了不知道你要加什么所以只是个思想，现在知道了。你可以改阿。你是不是之前的10项是固定的了。

procedure TForm1.ComboBox1Change(Sender: TObject)

var

i,j:integer

str:string

begin

str:=combobox1.Items[combobox1.itemindex]

j:=(combobox1.ItemIndex+1) mod 5

if (combobox1.ItemIndex>=9) and (j=0) then

for i:=1 to 5 do

combobox1.Items.Add(inttostr(strtoint(str)+i))

end

combobox1.Items.Clear

combobox1.Items.Add('第一项选择')

combobox1.Items.Add('第二项选择')

combobox1.Items.Add('第三项选择')

只要将要选择的内容加入到 combobox1.Items中就可以了

---