本文整理自网络,侵删。
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 工程判断内存溢出reportmemoryleaksonshutdown := true;
Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名
更多相关阅读请进入《Delphi》频道 >>