动态控件数组的事件处理程序怎么写呀,在线等,急
我的程序:
public
teamstring:array[0..20] of Tstringgrid;
procedure TeamStringMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
过程:
for i:=0 to 10 do
begin
teamstring[i]:=tstringgrid.create(self);
teamstring[i]:=teamstringmouseup;
end;
procedure TeamStringMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//
end;
执行我按鼠标没有反映,但单个控件可以的。求各个大虾救救则个,我都被老板逼疯了