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

[ArtGrek]

зделал бегущую строку в отдельном потоке, но она не бегает с одинаковои скоростью, как ето можно стабилизировать

  RunString := TRunString.Create(True);
  RunString.FreeOnTerminate := True;
  RunString.Priority := tpNormal;

procedure TPlayer.Execute;
begin
  inherited;
  while True do
  begin
    Label1.Left := Label1.Left - 1;
    if Label1.Left < -Label1.Left then Label1.Left := Panel1.Width;
  end;
end;

[Johnson]

Вариант 1 (бредовый):
При старте потока создавать окно посредством CreateWindows, регистрировать таймер на это окно и, собсна, по событию таймера передвигать строку.

Вариант 2:
В основном потоке регистрировать таймер на основную форму и по таймеру передвигать строку.

[ArtGrek]

бегущая строка через таимер мне не подходит

[Johnson]

Не подходит даже первый вариант? Тогда мирись с нестабильностью. Установить фиксированое время процессора для конкретного потока (насколько я знаю) не возможно.

Да и чем плохи таймера? Таймер - это по сути только обработчик оконных сообщений от ОС. Если уж и ОС висит жестко, то и распределение времени процессора тебе не поможет...

[ArtGrek]

а как можно бороца с тем что у меня загузка процессора во время потока(любого которыи я создаю) 50 -70

[Johnson]

в конце поставь

Sleep(10);

[ArtGrek]

ето приостановит процес, а я хочу что б он не загружал проц во время работы, если ето возможно

[Johnson]

Попробуй сначала. При остановке потока процессор на время перестает егообрабатывать - тем самым снижается его загруженность.

[ArtGrek]

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

[Johnson]

procedure TPlayer.Execute;
begin
  inherited;
  while True do begin
    Label1.Left := Label1.Left - 1;
    if Label1.Left < -Label1.Left then Label1.Left := Panel1.Width;
    sleep(10);
  end;
end;

решит Вашу проблему. "Да ты не очкуй, Славик! Я сто раз так делал!" ©

А ещё... А ещё... Вы знаете, что некрасиво получать доступ к компонентам первого потока из второго напрямую? Используйте

Synchronize(pocedure);

PS: так... стоп... а что это у Вас собсно за бегущая строка такая? о0 Это у Вас, сударь, ползающий лэйбл...

И ещё хотелось бы поинтересоваться... Почему для таких простейших действий не подходит таймер и требуется именно поток?