Código Delphi [-] for i := 0 to 776 do begin obj := TClase.Create(Self); obj.Name := 'obj' + IntToStr(i); // alguna propiedad más... // asignar evento obj.OnMouseDown := myOnMouseDown; end;
for i := 0 to 776 do begin obj := TClase.Create(Self); obj.Name := 'obj' + IntToStr(i); // alguna propiedad más... // asignar evento obj.OnMouseDown := myOnMouseDown; end;