Blockade bei Upload

[Felixcate07]

Hallo,

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

Danke

Gruß Tobias



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;