Thread Frage

[Felixcate07]

Hallo,

warum kann ich auf Edit1.text nicht zugreifen?? Auch auf Labels oder ähnliches hab ich keinen Zugriff.

Danke

Gruß Tobias

Delphi-Quellcode:

function UnserThread(zahl: Pointer): LongInt; stdcall;
begin
  Sleep(2000);
  Edit1.text := 'fertig';
  Result:=0;
end;


procedure TForm1.Button1Click(Sender: TObject);

var
  ThreadID: DWORD;       //Thread-ID
  ThreadHandle: THandle; //Rückgabewert von CreateThread

begin

  Label1.Caption:='Unser Thread-Testprogramm ist gestartet.';
  Label2.Caption :='Nun erzeugen wir den neuen Thread!';
    Sleep(2000);
  ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@UnserThread),
    nil, 0, ThreadID);

  //wenn der Thread erfolgreich gestartet wurde (ThreadHandle<>0), können
  //wir ThreadHandle wieder freigeben:
  if ThreadHandle<>0 then CloseHandle(ThreadHandle);

  label1.Caption :=('Das Hauptprogramm ist nun am Ende angekommen.');


end;

[edit=Luckie]Delphi Code-Tags gesetzt. Mfg, Luckie[/edit]