Форум пользователей ПО АСКОН

Профессиональные вопросы => Программирование приложений => Delphi => Тема начата: Mishka1111 от 30.10.03, 17:37:35

Название: Программирование
Отправлено: Mishka1111 от 30.10.03, 17:37:35
Как в библиотеку rtw запихать  Delphi форму
Название: Re:Программирование
Отправлено: Vitek от 31.10.03, 07:53:51
также как и для dll
Название: Re:Программирование
Отправлено: Avans от 06.11.03, 20:42:07
Да я пробывал засунуть форму, получилось, но закрыть её правельно у меня не получаэться. Как выйти из формы?
Название: Re:Программирование
Отправлено: бракамонте от 08.11.03, 09:24:24
на Delphi делаем так. см. книгу Богуславского в разделе download.
var
   dlg: tRectDlg;

procedure LibraryEntry(command: word); pascal;

begin
   iKompas:= KompasObject(CreateKompasObject);
   if iKompas=nil then Exit;
   Application.Handle:= iKompas.ksGetHWindow;
   dlg:= TRectDlg.Create(Application);
   iKompas.ksEnableTaskAccess(0);
   dlg.ShowModal;
   iKompas.ksEnableTaskAccess(1);
   dlg.Free;
   Application.Handle:= 0;
   ...........
   ...........
   ...........;
   iDoc:= nil;
   iMath:= nil;
   iKompas:= nil;
end;
Название: Re:Программирование
Отправлено: бракамонте от 08.11.03, 09:25:52
а из формы выходишь просто закрывая её.
Название: Re:Программирование
Отправлено: Mishka1111 от 23.11.03, 13:50:07
Пасибки весьма признателен