wadmanKast2KЧЯДНТ?
Разнеси код по созданию кнопок и по работе с ними на разные кнопки.
А тут получается, что не понятно какой поток какую кнопку подхватывает.
Что-то не выходит каменный цветок :(
Пишет с00000005
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
private
AObjL:TObjectList;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
AObjL:=TObjectList.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
btn:TButton;
begin
for I := 0 to 9 do
begin
btn:=TButton.Create(self);
btn.Name:='btn'+i.ToString;
btn.Parent:=Panel1;
btn.Width:=50;
btn.Left:=10+i*btn.Width+32*i;
AObjL.Add(btn);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,c:Integer;
begin
c:=AObjL.Count;
for i := 0 to c-1 do
begin
CreateTsk(TButton(AObjL),i);
end;
end;
procedure TForm1.CreateTsk(ABtn: TButton; Ai: Integer);
var
task:ITask;
begin
task := TTask.Create(procedure ()
var
j, i:Integer;
b:TButton;
begin
i:=Ai;
b:=ABtn;
j:=Random(100);
TThread.Synchronize(nil,
procedure()
begin
b.Caption := i.ToString+'='+j.ToString; // валится здесь с с00000005
end
);
end);
task.Start;
end;
если разбавить CreateTsk с ShowMessage(ABtn.Caption), то видно, что изменения начинаются не с 0-й кнопки, а с 1-й
