請問如何將listbox修改可以達到如附檔的圖片一樣的功能，這個是一個listbox，麻煩知道的告知一下，謝謝。

delphi初學者

利用OnDrawItem Event
ListBox的Style需設為lbOwnerDrawFixed或lbOwnerDrawVariable
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
c :TCanvas;
strData:String;
begin
strData := (Control as TListBox).Items[index];
c:= (Control as TListBox).Canvas;
c.FillRect(Rect);
c.TextOut(Rect.Left,Rect.Top,LeftStr(strData,Length(strData)-1));
c.Brush.Color := clBlue;
c.TextOut(c.PenPos.X,Rect.Top,RightStr(strData,1));
end;

你好，先謝謝你回答我的問題，那請問如何只有對字著色呢?而不是連背景色一起變，而且原程式是可以任意變換裡面值的顏色，麻煩一下，謝謝。

delphi初學者

把c.Brush.Color:=clBlue;這行改成
c.Font.Color:=clBlue;即可
===================引 用 文 章===================

你好，先謝謝你回答我的問題，那請問如何只有對字著色呢?而不是連背景色一起變，而且原程式是可以任意變換裡面值的顏色，麻煩一下，謝謝。

delphi初學者