Threads erstellen

[xaromz]

Hallo,

Zitat von jeroen_a:

Wo hab ich den Fehler gemacht ?

da:

Delphi-Quellcode:

type
  TForm1 = class(TForm)  // Wo ist hier die Deklaration von TForm1?
  TSelfThread = class(TThread)
    procedure Execute; override; 
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Ich vermute, es soll so aussehen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)  // Wo ist hier die Deklaration von TForm1?
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TSelfThread = class(TThread)
    procedure Execute; override; 
  end;

Gruß
xaromz