很简单
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、如果可以实现,别忘了...
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、如果可以实现,别忘了...
R := Rect;
with ComboBox1 do
begin
Parent := ToolBar1;
SetBounds(R.left, R.Top, r.Right-R.Left, R.Bottom-R.Top);
end;