TMyThread = class(TThread)
private
{ private-Deklarationen }
FBild: TBitmap;
protected
procedure Execute; override;
published
property Bild: TBitmap read FBild write FBild;
end;
...
Delphi-Quellcode:
procedure TMyThread.Execute;
[s] var Bitmap : TBitmap;[/s]
x, y : Integer;
Farbe : TFarbe;
Arith : Integer;
begin
for x:=0 to Bild.Width do
MyThread.Bild := Bitmap;