Тема: Редактирование текста перехода Delphi XE2
Здравствуйте!
Возникла проблема шрифтов в окне редактирования,в закладке "ТЕКСТ" и при щелчке по этой вкладке все закрывается:офис и dllка моя.
Редактирование проводится через вызов dllки в программе Excel 2003,текст команды:
procedure TForm2.Button1Click(Sender: TObject);
var
s,NOP: String;
i,ToTechId,Form: Integer;
NmkTechnology: CSDN_TLB.INmkTechnology;
n: Real;
TCSApp: TCS_Application;
TCS : CSDN_TLB.TCS;
begin
Tcs:= CreateOLEObject('CSDN.TCS' ) as ITCS;
TCSApp:=TCS.LoginCurrent;
NmkTechnology:=TCSApp.NmkTechnology[200265,44629];
If NmkTechnology.Locate['TECH_ID',2066558,0] then begin
NmkTechnology.ActionList.ActionByName['EditAction'].Execute;
End;
try
(NmkTechnology as IModule2).UserModuleName :=(NmkTechnology as IModule2).UniqueUserModuleName;
(TCSApp as IOcs_Application2).DeleteModuleByUserModuleName((NmkTechnology as IModule2).UserModuleName);
except
end;
end;