Цитата:
Сообщение от lmikle
Как я могу тебе сказать, что ты делаешь не так, если я не вижу что и как ты делаешь? Код приведи, бум смотреть.
|
Ок.
Код:
unit Thread_Chart_repaint;
interface
uses
Classes;
type
Repaint_Charts = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
public
Processing: boolean;
end;
implementation
uses converter;
{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,
Synchronize(UpdateCaption);
and UpdateCaption could look like,
procedure Repaint_Charts.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }
{ Repaint_Charts }
procedure Repaint_Charts.Execute;
begin
//while not Terminated do
//while Processing do
Synchronize(Charts_panel.Paint_charts);
end;
end.
Synchronize подчеркнуто красным, но код исполняется.