Создаю стратегию.

[Shadow_1329]

Я так уже делал. Ни фига. Просто 2 раза повторяет одно и тоже. Ктому же текст рандомный и зависит от условий. Так чо этот прием не катит.

[DeKot]

buf.Canvas.TextOut(0, 10, 'Первая часть текста');
buf.Canvas.TextOut(0, 30, 'Вторая часть текста');

[Shadow_1329]

Ну а как их разделить на 2 части если опять же текст рандомный?

[JTG]

procedure TForm1.Button1Click(Sender: TObject);
var text: string;
    clipRect: TRect;
begin
  SetRect(clipRect, 10,10,150,100);
  Canvas.DrawFocusRect(clipRect);

  text := 'One cold winter I came out of the woods, a sharp frost Watch - '+
          'climbs slowly up the hill Horse carrying firewood opportunities.';
  SetBkMode(Canvas.Handle, TRANSPARENT);
  DrawText(Canvas.Handle, pchar(text), -1, clipRect, DT_LEFT+DT_WORDBREAK);
end;

разбивает строку с пробелами

[Shadow_1329]

У меня появилась рамка вокруг текста, а она мне не нужна. К тому же текст не перерисовывается заного! Ну а в целом спасибо.

[JTG]

Canvas.DrawFocusRect(clipRect); убери, это я для наглядности
И в винде никогда ничего само не перерисовывается

[Shadow_1329]

Спасибо! Помогло. А можно все это просто на битмапе написать а не на Тректе?

[JTG]

В TRect координаты прямоугольника, в котором будет выведен текст.
Чтоб в bitmap вывести - Bitmap.Canvas.Handle вместо Canvas.Handle

[Shadow_1329]

Да это я понял. Но я не про то. Ну хотя ладно. А как перерисовывать текст без помщи таймера. У меня там процедура вызывающая подсказки, которую я сам сделал. Раньше когда я делал с помощью TextOut у меня перерисовывалось все, так как у меня в таймере мтоит перериовка битмапа подсказки. Но теперь не перерисовывает.

[Beermonza]

Сделай флажок, или переменную, когда основной код переключит подсказку на новую, условие выполнит отрисовку, все в основном таймере.