Стабилизация работы потока(TThead)

[ArtGrek]

"Да ты не очкуй, Славик! Я сто раз так делал!"

в отдельном проекте я уже ве ето перепробывал, спасибо, надо подумать

некрасиво получать доступ к компонентам первого потока из второго напрямую

а где я так делаю?

[Пепел Феникса]

а где я так делаю?

    Label1.Left := Label1.Left - 1;
    if Label1.Left < -Label1.Left then Label1.Left := Panel1.Width;

[ArtGrek]

а как мне обратица правельно?
типа так?

procedure TForm1.LabelMove;
begin
moving...
end;

procedure TPlayer.Execute;
begin
  inherited;
  while True do
  begin
    Synchronize(LabelMove);
  end;
end;

так надо?

[Johnson]

type
TnewThread = class(TThread)
private
  labLeft:integer;
  procedure SyncLabel;
......
end;

procedure TNewThreat.SyncLabel;
begin
 MainForm.Label1.Left:=labLeft;
//в этой процедуре синхронизации можно одновременно обращаться к обоим потокам.
end;

procedcure TnewThread.Execute;
begin
{математика с переменной labLeft, а не с проперти компонента первого потока}
Synchronize(SyncLabel);
end;

[MyLastHit]

ArtGrek, извини за оффтоп, но очень хочется спросить: Ты из России?
Если да, то печально...Я столько ошибок не видел даже у пятиклашек... Читать грустно такое...
Если нет, то скажу то, что говорят в 6ом классе: "Глаголы не могут оканчиваться на ца, дца и тд. В России это верх безграмотности считается. Эти глаголы имеют возвратный суффикс -ся-. И 'ето' пишется через э 'это', правЕльно пишется 'правИльно'".

[ArtGrek]

я знаю что далеко не идеал в граматике, но на сколько я помню ето форум програмистов.
хватит мне подмечать мои грамматические ошибки, ok?

[MyLastHit]

Окай чувак, йа нэ буду падмичать тэбе тваи ошибке)
То, что это форум программистов - еще никого не освобождает от повсеместно принятых грамматических норм. Я тебе не тыкаю на твои ошибки. Если ты не из России, или классе в 6-7, тогда все нормально! Но если иначе - это уже очень-очень стыдно должно быть - так писать, особенно будущему программисту.

[phomm]

Бедный ArtGrek , он, по-моему, уже замучался отвечать, что пишет транслитом у себя не в России на нерусской клаве, и переводит в руслит через функцию QIP'a , ну и постит, как получись, со всеми -ца , ето и т.д. Уж простите его )

[MyLastHit]

А))) Ну тогда я прошу прощения)