Показать сообщение отдельно
  #6  
Старый 14.09.2008, 22:00
ProperDoze ProperDoze вне форума
Новичок
 
Регистрация: 04.08.2008
Сообщения: 53
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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 подчеркнуто красным, но код исполняется.
Ответить с цитированием