关于在程序中设定combobox的下拉菜单宽度[delphi]
定义:
CbName: TComboBox;
width: Integer; //实际所需的宽度
在执行代码中按如下方法写:
width := CbName.Canvas.TextWidth(CbName.Items[I]); //可用此方法通过遍历获得某选项的最大宽度,也可以按自己的需要设定宽度
SendMessage(CbName.Handle, CB_SETDROPPEDWIDTH, width, 0);
相关文档:
var
L,i:integer;
Ustr,str:string;
p:char;
begin
str:='123456789ABCDEFG'
L:=length(str);
for i:=1 to l do begin
p:=str[i];
str[i]:=str[l-(i-1)];
......
procedure TForm1.Button2Click(Sender: TObject);
var
o : Olevariant;
begin
webbrowser1.Navigate('http://www.163.com');
delay(2000);
o := WebBrowser1.OleObject.document.all.item('username',0);
o.value := 'username';
o := W ......