Objekte vom Thread auf Form darstellen.

[stiftII]

Hallo .

Ich probiere gerade nen wenig die threads(TThread-Klasse) aus.

Ich möchte nun, dass mein Thread auf eine checkbox reagiert, und nur solange läuft, wie die checkbox.checked ist, dafür habe ich in meiner Threadklasse eine checkbox deklariert. Wie kann ich diese aber auf Form1 darstellen und benutzen ?

Ich glaub ich habe da irgendwo nen Denkfehler. Hier ist mein Code(der relevante Teil).

Delphi-Quellcode:

type
  TMyOwnThread = class(TThread)
  CheckBox2: TCheckBox;
  protected
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  end;

und meine Thread-prozedur soll dann in etwa so aussehen:

Delphi-Quellcode:

procedure TMyOwnThread.Execute;
begin
  repeat
  WriteLn('Thread Working');
  try
    sleep(1000);
    inc(testcount);
  except
    on e: exception do begin
      extext := 'Thread Malfunctioned';
    end;
  end;
 until not checkbox2.checked; 
  end;

~ stift