Anwendung sauber beenden, während Thread läuft

[Sir Rufo]

Ok, wie wäre denn sowas:

Delphi-Quellcode:

type
  TMyThreadComponent = class( TComponent )
  private
    FMyThread : TMyThread;
    FEdit :     TEdit;
    procedure SetEdit( const Value : TEdit );
  protected
    procedure DoEvent( const Info : string );
  public
    constructor Create( AOwner : TComponent ); override;
    destructor Destroy; override;
  published
    property Edit : TEdit read FEdit write SetEdit;
  end;


procedure TMyThreadComponent.DoEvent( const Info : string );
begin
  if Assigned( Edit ) and ( Self.ComponentState = [] )
  then
    Edit.Text := Info;
end;