Не могу разобраться с ListBox

[4BlooD]

Не могу сделать одну из строк ListBox недоступной (типа enable:=false). Кто знает подскажите как разрешить эту проблему

[raxp]

под недоступностью вы подразумеваете выделение другим цветом (потому-что строки и так нередактируемые)? тогда используйте перерисовку в событии ondrawitem.

[4BlooD]

Да, выделение другим цветом, и запрет выбора элемента. Если не трудно. опишите как использовать OnDrawItem в конкретном примере. (Я начинающий программист)

[mihali4]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
j:integer;
begin
with (Control as TListBox).Canvas do
begin
//далее можно задать наше условие для цвета отдельных строк
for j:=0 to st.Count-1 do 
if massiv[Index]=st[j] then
Font.Color := clRed; //здесь любой ваш цвет
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.Selected[2] then
ListBox1.Selected[3]:=True;
end;

[4BlooD]

спасибо большое, сделал как вы написали, немного подправил и заработало !!!