是在DrawItem里写吗?但我不知怎么写,网上也找不到相关的,麻烦大家
解决方案 »
- delphi 中英文字符 怎样分段截取, 感觉有点难~~
- 請問怎麼判斷今天是5.1,5.2,5.3或10.1,10.2,10.3。
- DELPHI能生成动态语句并能让DELPHI执行吗?
- 怎样在其他用户下取文磁盘的admin权限,写入文件?
- 急急急急急急急——关于回调函数传递参数的问题。
- 给一个以前写的类,有兴趣的进来可以看看
- 简单问题!
- 大讨论《如何更好地实现网络监视网络上的PC使用情况》可以另开贴子给分。。。
- DELPHI下如何把数据库中的内容写到WORD文档
- 在一个窗体中有二十几个EDIT控件和几个COMBOBOX和DBLOOKUPCOMBOBOX,我想一下把它们都清空,好象听说有什么数组来着。
- StringGrid动态产生一个新行问题
- 【测试帖】散点分
然后在它的DrawItem程序中:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
p:integer;
begin
p:=(combobox1.ItemHeight-combobox1.Canvas.TextHeight(combobox1.Items[Index])) div 2;
combobox1.Canvas.TextOut(Rect.Left,Rect.Top+p,combobox1.Items[Index]);
end;
由于每个字符的实际高度不一样(如a与b,后者要比前者实际高些:ab),所以结果可能不会完全居中(如全部是text为aaaa的)