1. CoolBar + ToolBar 完全可以。
具体做法:先做一个mainmenu,然后把form的menu属性设为空;
放上CoolBar和ToolBar,在ToolBar上放按钮,按钮的menuitem属性
设为mainmenu中的菜单项,grouped属性设为true.
3. PageControl的OwnerDraw设为True,
在PageControl的DrawTab事件中写相应的代码(如下例):
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
{设置背景颜色、设置字体并显示文字}
with Control.Canvas do begin
Brush.Style := bsSolid;
Brush.Color := $00DDBB99;
FillRect(Rect);
Font.Size := 11;
TextOut(Rect.Left + 24, Rect.Top + 3, PageControl1.Pages[TabIndex].Caption);
end;
{显示图标}
Imagelist1.Draw(Control.Canvas, Rect.Left + 3, Rect.Top + 3,
PageControl1.Pages[TabIndex].ImageIndex, True);
end;