Программирование

Автор Mishka1111, 30.10.03, 17:37:35

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Mishka1111

Как в библиотеку rtw запихать  Delphi форму

Vitek


Avans

Да я пробывал засунуть форму, получилось, но закрыть её правельно у меня не получаэться. Как выйти из формы?

бракамонте

на 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;

бракамонте

а из формы выходишь просто закрывая её.

Mishka1111

Пасибки весьма признателен