[SpectraL]

Скажите пожалуйста, как правильно вызвать событие TForm1.PaintBox1Paint из TThread.Execute?

Код:

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

unit Unit1;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Unit2, Vcl.ExtCtrls;   type   TForm1 = class(TForm)     PaintBox1: TPaintBox;     procedure FormCreate(Sender: TObject);     procedure PaintBox1Paint(Sender: TObject);   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); begin   Thread1 := TThread1.Create; end;   procedure TForm1.PaintBox1Paint(Sender: TObject); begin   BitBlt(Form1.PaintBox1.Canvas.Handle, 0, 0, Bitmap1.Width, Bitmap1.Height, Bitmap1.Canvas.Handle, 0, 0, SrcCopy); // копируем изображение из Bitmap1 в PaintBox1 end;   end.

Код:

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

unit Unit2;   interface   uses   System.Classes, Vcl.Graphics;   type   TThread1 = class(TThread)   protected     procedure Execute; override;   end;   var   Thread1: TThread1;   Bitmap1: TBitmap;   implementation   uses   Unit1;   procedure TThread1.Execute; begin   Bitmap1 := TBitmap.Create;   Bitmap1.SetSize(Form1.PaintBox1.Width, Form1.PaintBox1.Height); // определяем размер изображения (создаём его)   Synchronize(procedure   begin     Form1.PaintBox1Paint(Nil);   end); end;   end.