采用devexpress第三方控件,MDI结构,在MDIChildForm中有一PageControl,在创建MDIChildForm(下例为ItemForm)时PageControl的每个tabSheet(下例为tsFetchCost)载入对应的其他Form(下例为FetchCostForm).代码如下:
procedure TItemform.FormActivate(Sender: TObject);
var FetchCostForm:TFetchCostForm;
begin
pcItem.ActivePage:=tsFetchCost;
FetchCostForm:=TFetchCostForm.Create(self);
FetchCostForm.Parent:=tsFetchCost;
FetchCostForm.BorderStyle:=bsnone;
FetchCostForm.Align:=alClient;
FetchCostForm.WindowState:=wsMaximized;
FetchCostForm.Show; end;
现在问题是,在ItemForm和FetchCostForm中都有各自的ToolBar(我采用的是TdxBar),当鼠标移到ItemForm的Toolbar上时各按钮能高亮反色显示,但是移到FetchCostForm上的ToolBar却不能.是不是因为当前screen.activeForm是ItemForm,只有当鼠标移到screen.activeForm上的控件上才能高亮显示.
怎样才能使鼠标移到FetchCostForm上的ToolBar上也能高亮反色显示呢?
procedure TItemform.FormActivate(Sender: TObject);
var FetchCostForm:TFetchCostForm;
begin
pcItem.ActivePage:=tsFetchCost;
FetchCostForm:=TFetchCostForm.Create(self);
FetchCostForm.Parent:=tsFetchCost;
FetchCostForm.BorderStyle:=bsnone;
FetchCostForm.Align:=alClient;
FetchCostForm.WindowState:=wsMaximized;
FetchCostForm.Show; end;
现在问题是,在ItemForm和FetchCostForm中都有各自的ToolBar(我采用的是TdxBar),当鼠标移到ItemForm的Toolbar上时各按钮能高亮反色显示,但是移到FetchCostForm上的ToolBar却不能.是不是因为当前screen.activeForm是ItemForm,只有当鼠标移到screen.activeForm上的控件上才能高亮显示.
怎样才能使鼠标移到FetchCostForm上的ToolBar上也能高亮反色显示呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货