博客主要讲述在ListBox的Item左边，从上到下依次显示序号1到N的相关内容，聚焦于信息技术中界面显示方面的操作。
在ListBox的Item左边从上到下显示序号1，2，3....N
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with ListBox1.Canvas do
begin
FillRect(Rect);
TextOut(Rect.Left+1, Rect.Top+1,inttostr(Index+1)+ListBox1.Items[Index]);
end;
end;
[说明]需要把ListBox的Style属性设为lbOwnerDrawFixed
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
