下拉选择框在toolbar上显示不出来 考到另一个页面就显示(100)

下拉选择框在toolbar上显示不出来 考到另一个页面就显示

跟toolbar无关吧,删除这个控件再放个呢

可以啊，我的dfm文件为：object Form1: TForm1 Left = 192 Top = 107 Width = 870 Height = 500 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 862 Height = 29 ButtonHeight = 21 Caption = 'ToolBar1' TabOrder = 0 object ComboBox1: TComboBox Left = 0 Top = 2 Width = 145 Height = 21 ItemHeight = 13 TabOrder = 0 Text = 'ComboBox1' Items.Strings = ( 'sdasdf' 'asdfga' 'asfdgasd' 'gasd' 'asdf') end endend

关键是把他考到另一个窗口就显示 在当前的窗口就不现实 不知道为什么

把你窗口的dfm文件内容贴出来。

谢谢znxia 晚上贴 现在不方便

object TB_Jxuhao: TToolButton Left = 338 Top = 0 Hint = 'j'#38477#24207#25490#24207 Caption = 'TB_Jxuhao' ImageIndex = 13 ParentShowHint = False ShowHint = True OnClick = TB_JxuhaoClick end object TB2: TToolButton Left = 361 Top = 0 Width = 8 Caption = 'TB2' ImageIndex = 16 Style = tbsSeparator end object TB_FormulaInput: TToolButton Left = 369 Top = 0 Hint = #20844#24335#36755#20837 Caption = 'TB_FormulaInput' ImageIndex = 14 ParentShowHint = False ShowHint = True OnClick = TB_FormulaInputClick end object TB_FormulaFillSerial: TToolButton Left = 392 Top = 0 Hint = #35774#32622#21333#20803#26684#20844#24335#24207#21015 Caption = 'TB_FormulaFillSerial' ImageIndex = 15 ParentShowHint = False ShowHint = True OnClick = TB_FormulaFillSerialClick end object TB3: TToolButton Left = 415 Top = 0 Hint = #22270#34920#21521#23548 Caption = 'TB3' ImageIndex = 16 ParentShowHint = False ShowHint = True OnClick = TB3Click end object TB4: TToolButton Left = 438 Top = 0 Width = 8 Caption = 'TB4' ImageIndex = 19 Style = tbsSeparator end object TB_Find: TToolButton Left = 446 Top = 0 Hint = #26597#25214 Caption = 'TB_Find' ImageIndex = 17 ParentShowHint = False ShowHint = True OnClick = TB_FindClick end object Combo_Find: TComboBox Left = 469 Top = 0 Width = 131 Height = 21 Hint = #35201#26597#25214#30340#20869#23481 ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899 ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 end object TB_FindNext: TToolButton Left = 600 Top = 0 Hint = #26597#25214#19979#19968#20010 Caption = 'TB_FindNext' ImageIndex = 18 ParentShowHint = False ShowHint = True end

ok了 删除一下，重新加一次就好了。谢谢两位！