请教各位大侠,我定义了一个动态数组控件,请问如何能跟踪到它们的change事件。
dblcob:array [1..10] of tdblookupcombobox;
for k:=1 to 10 do
begin
  dblcob[k]:=tdblookupcombobox.Create(self);
  dblcob[k].Parent:=form1;
end;
请问如何能跟踪到它们各自change事件

解决方案 »

  1.   

    procedure MyOnChange(Sender: TObject); //在published中定义
    begin
    ....
    end;
    dblcob:array [1..10] of tdblookupcombobox;for k:=1 to 10 do
    begin
      dblcob.OnChange := MyOnChenge;
    end;
      

  2.   

    1.建议你在调试的时候,加一个memo框,将必要的信息显示出来;memo.lines.add('需要的信息');
    必要时可以显示变量;
    2.利用条件断点