如何在工具栏上放一个ComboBox?

Question

很简单
1、定义本单元全局变量:R : TRect;
2、设置TStatusBar中的某一Panels为OwnerDraw
3、在Form上添加ComboBox1构件
4、在TStatusBar的OnOwnerDraw事件中加入
   R := Rect;
   with ComboBox1 do
   begin
     Parent := StautsBar1;
     SetBounds(R.left, R.Top, r.Right-R.Left, R.Bottom-R.Top);
   end;
5、如果可以实现，别忘了...
 

Answer 1

第4步应该是OnDrawPanel事件，sorry

Answer 2

toolbar中的toolbotton的style中就有tbsdropdown属性啊

Answer 3

toolbar更简单，只要设置R的值即可，如
  R := Rect;
  with ComboBox1 do
  begin
    Parent := ToolBar1;
    SetBounds(R.left, R.Top, r.Right-R.Left, R.Bottom-R.Top);
  end;