In have (VCL version) thread for update statusbar
How update code for IW with update IWLabel? IWLabel1.Caption .... Access Error!
VCL code:
procedure TMyThread.Execute;
begin
while not Terminated do
begin
if Terminated then
begin
Synchronize(
procedure
begin
MainForm.StatusBar1.Panels.Items[0].Text := 'Load Ending! ';
end
);
Break;
end; // if terminated
Synchronize(
procedure
begin
MainForm.StatusBar1.Panels.Items[0].Text := 'Loading... ';
end
);
end; // while
end;
How update code for IW with update IWLabel? IWLabel1.Caption .... Access Error!
VCL code:
procedure TMyThread.Execute;
begin
while not Terminated do
begin
if Terminated then
begin
Synchronize(
procedure
begin
MainForm.StatusBar1.Panels.Items[0].Text := 'Load Ending! ';
end
);
Break;
end; // if terminated
Synchronize(
procedure
begin
MainForm.StatusBar1.Panels.Items[0].Text := 'Loading... ';
end
);
end; // while
end;