经过远程,应该是问题没有描述清楚。
通过messager直接运行客户端和邮件的时候,默认激活为工作台,需要修改:
业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.RunFirstFuncTimerTimer(Sender: TObject);
begin
RunFirstFuncTimer.Enabled := False;
if FConfig.ActiveFunc <> '' then
//RunFunc(FConfig.ActiveFunc, False)
else
begin
//修改这里
if (FFuncContainers.Count > 0) and (FFuncContainers.Count = 3) then
ShowContainer(FFuncContainers[2] as TFuncContainer)
else
ShowContainer(FFuncContainers[0] as TFuncContainer);
//原来的代码
{if FFuncContainers.Count > 0 then
ShowContainer(FFuncContainers[0] as TFuncContainer);}
end;
TransferUtils.TransferManager.Start;
// TODO: FTransferStatusThread.Resume;