TThread, Synchronize, VCL Опции

[sheka]

Synchronize делает неактивным приложение, в то время как без него работает. Какие есть варианты решения этой проблемы? В form1.proc есть работа с VCL.

Код (Показать/Скрыть)

На форме 2 кнопки:

type
  TmyThread = class (TThread)
  protected
    procedure Execute; override;
    procedure MyDo;
  end;

  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure proc;
  end;

var
  Form1: TForm1;
  pt : TMyThread;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.proc;
var
  i: Integer;
  d: Double;
begin
  for i := 0 to MaxInt div 2 do
    d := d;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  btn1.Enabled:=False;
  PT:=TMyThread.Create(false);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  if Assigned(pt) then Self.btn2.Caption := IntToStr(Byte(PT.terminated));
end;

procedure TMyThread.Execute;
begin
  Synchronize (MyDo);
  Form1.btn1.Enabled:=True;
  Terminate;
end;

procedure TMyThread.MyDo;
begin
  form1.proc;
end;

end.

Где можно найти нормальное описание Synchronize?

Сообщение отредактировано: sheka - 15.12.2011 18:48

[IUnknown]

Synchronize делает неактивным приложение, в то время как без него работает.

А на кой тебе там вообще Synchronize? Тебе что, надо выполнять какие-то действия в контексте основного потока приложения? Нет, не надо (вот когда на форме будут обновляемые из потока контролы - тогда надо будет).

form1.proc есть работа с VCL.

Значит, обновление VCL-контролов (то что тебя сейчас есть - это не называется "работа с VCL", это можно делать и без синхронизации) выдели в отдельную процедуру, и вызывай ее через Synchronize. Чтоб она работала как можно быстрее. Зашла - обновила - вышла.

Где можно найти нормальное описание Synchronize?

Для начала - тебе сюда: Выучить наизусть, только потом работать с потоками

(что-то сегодня я уже второй раз даю эту ссылку, все прямо так заинтересовались потоками... )

Сообщение отредактировано: IUnknown - 15.12.2011 19:48