Von Thread auf Edit-Feld zugreifen?

**TheFirstChoice**

Erst einmal danke für deine Antwort.

Nun habe ich es so:

(Form1/Unit1)

Code:

			  form := TTest.Create;

  form.fForm := TForm2.Create(nil);

  form.fForm.Left := Random(Screen.Width - Form2.Width) + 1;

  form.fForm.Top := Random(Screen.Height - Form2.Height) + 1;

  form.sInfo := 'Info String';

  form.fForm.show;

(Form2/Unit2)

markieren

Code:

			var

  Form2: TForm2;

  form: TTest;

implementation

markieren

Code:

			procedure TestThread();

var

  s: string;

begin

  s := form.sinfo;

  // Hier soll das Editfeld den Wert von "s" bekommen.

end;

procedure TForm2.FormShow(Sender: TObject);

var

  id:dword;

begin

  beginthread(nil, 0, @TestThread, nil, 0, id);

end;

Form2.Edit1.Text ist ja völlig falsch, das ist klar.
Ist der Anfang so richtig? Habe bisher nicht viel mit Threads gearbeitet, sorry also

Edit:
Beim Aufruf von Synchronize bekomme ich ständig die Meldung:

Zitat:

[DCC Fehler] Unit2.pas(47): E2066 Operator oder Semikolon fehlt

Von Thread auf Edit-Feld zugreifen?

AW: Von Thread auf Edit-Feld zugreifen?

Forumregeln