Выделение цветом нужной строки в ListBox

[Kity19]

Всем доброй ночи! Проблема в следующем: в ListBox-е отображаются все файлы, отправленные на сервер по почте. При получении ответа от сервера, нужно в ListBox-е найти нужное имя файла и выделить его жирным красным цветом. Вся проблема именно с этим выделением Можно ли выделить нужную строку в ListBox-е, не фокусируясь на ней ? через OnDrawItem все нормально, а как сделать без фокуса не доходит. Помогите, пожалуйста. Заранее спасибо.

[asmodey1]

Создание цветных строк в ListBox. Например, "нужной" строкой является 4-ая (по индексу - 3-я) :

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
begin
//далее можно задать наше условие для цвета отдельных строк
if Index=3 then
begin
Font.Color := clRed; //здесь любой ваш цвет. Можно и другие параметры шрифта задать, например, Bold...
Font.Style:=Font.Style+[fsBold];
Brush.Color:=clYellow;
end;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;
end;

[Kity19]

Спасибо, asmodey1, но то что вы предложили не работает, т.е. это не совсем то, что нужно. Понимаете...

каждые 3 сек проверяется определенная папка и в ListBox-е отображаются имена файлов, отправленных на сервер. Другой таймер каждые 5 сек проверяет почтовый ящик, и при наличии письма складывает приаттаченные файлы в другую папку. И вот при совпадении имен мне нужно в ListBox-е выделять нужные файлы цветом, независимо от ListBox1DrawItem

т.е. в вашем случае пока я не выберу в ListBox-е элемент, он не выделится цветом, а мне нужно, чтобы выделение было автоматическое. Т.е. программка работает как бы сама по себе через таймеры, а пользователь заглядывает время от времени и видит - если выделено жирным красным (к примеру), значит ответ пришел с сервера.

[Kity19]

Ребят, может я не совсем понятно задачу изложила... попробую по-другому...

на форме три компонента - ListBox1, Edit1, Button1. В ListBox-е цифры от 1 до 30. В Edit1 вводим число 12. Нажимаем на кнопку Button1 и нужно, чтобы в ListBox-е число 12 выделилось цветом. Как это сделать не пойму что писать в procedure TForm1.Button1Click(Sender: TObject);

[asmodey1]

Сообщение от Kity19

т.е. в вашем случае пока я не выберу в ListBox-е элемент, он не выделится цветом, а мне нужно, чтобы выделение было автоматическое.

Я не знаю, что вы там делаете, но эта процедура работает именно автоматически и ничего выделять не надо...
Ваше дело - назначить условия, при которых будет происходить раскраска.
Эта процедура (обработчик события отрисовки) специально предназначен для нестандартного отображения.
Если бы вы заглянули в хэлп насчет этого события, то увидели бы, что для его использования нужно установить нестандартный ListBox.Style в инспекторе объектов... Например, lbOwnerDrawFixed

[Kity19]

спасибо! Все получилось ! Вся проблема была в неправильном условии.