谢谢
解决方案 »
- 欢迎各位朋友来访
- delphi 调试的简单问题
- 怎么将DBGRID的第一列的值全部设为1
- 关于BeginTrans锁表的问题!急!顶者有分!豁出去了,如果能够解决的话,在出2000分!
- {求助}把按钮变成想要的形状
- 关于listbox使用了lbVirtual风格后的问题(急)
- 如何用Delphi5在NT+IIS中实现自动建立web共享目录
- 请问大家,到那里有完全版解密的kylix下载呢??
- geliang(太阳的光芒),请来拿分!
- 关于ado控件,我在2000下能正常运行,但在98下就会出现错误,好象跟msado15.dll有关,不知道该怎么办?!
- 下面两段代码有什么不同!!(三根鸡毛信!)
- 如何实现按回车 = 按下某个按钮的功能?
procedure TForm1.FormCreate(Sender: TObject);
var
i, MaxWidth: integer;
begin
MaxWidth := 0;
for i := 0 to CheckListBox1.Items.Count - 1 do
if MaxWidth < CheckListBox1.Canvas.TextWidth(CheckListBox1.Items.Strings[i]) then
MaxWidth := CheckListBox1.Canvas.TextWidth(CheckListBox1.Items.Strings[i]);
SendMessage(CheckListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+22, 0);
end;