delphi 使用工控机控件 iThreadTimes 出现问题, 导致主程序创建页面的时候, 阻塞消息, 不能正常执行。
使用这个控件需要小心
function Tfrm_MainIPC.OpenTempControlComm: Tfrm_TempControlComm;
var
MyForm : TForm;
begin
result := nil;
Notebook_Main.ActivePage := 'TemperatureControl';
LockWindowUpdate(Self.Handle);
MyForm := TForm(FindComponent('frm_TempControlComm'));
if MyForm = nil then
MyForm := Tfrm_TempControlComm.Create(Self);
if (MyForm as Tfrm_TempControlComm).PanelForm <> nil then
ShowPanelForm((MyForm as Tfrm_TempControlComm).PanelForm, pnl_TemperatureControl);
(MyForm as Tfrm_TempControlComm).refreshData('1');
LockWindowUpdate(0);
Application.ProcessMessages;
Result := MyForm as Tfrm_TempControlComm;
end;