本文整理自网络,侵删。
procedure TForm1.SetWidth(pListBox:TListBox);var i, w: Integer;begin w := 0;
for i := 0 to pListBox.Items.Count - 1 do begin Canvas.Font.Name := pListBox.Font.Name; Canvas.Font.Size := pListBox.Font.Size; if Canvas.TextWidth(pListBox.Items[i]) > w then w := Canvas.TextWidth(pListBox.Items[i]); end; SendMessage(pListBox.Handle, LB_SETHORIZONTALEXTENT, w + 10, 0);end;
――――――――――――――――
原文链接:https://blog.csdn.net/ozhy111/article/details/80940868
相关阅读 >>
Delphi xe(indy10)tidbytes转ansistring的实现
Delphi 2010下使用sqlitesimpleDelphi连接sqlite数据库及中文乱码问题的解决
更多相关阅读请进入《Delphi》频道 >>