Как передать приложению компас parent панели delphi?

[Pass_OK]

Как передать приложению Компас parent панели delphi?

IKompasAPIObject.Parent:=Panel1.Parent;

Не получается передать указатель на интерфейс формы, так как IKompasAPIObject.Parent только для чтения.
Цитата из справочника по SDK:
"Свойство доступно только для чтения. Возвращает указатель на интерфейс, у которого был взят данный объект."

Мне необходим свойство типа Twincontrol в которое я бы мог бы передать указатель на панель.


Обратный способ передачи свойства HWND фрейма документа Компас панели Delphi не подходит. Пожалуйста помогите разобраться. Нужно очень срочно.

[Maxagg]

проще понять чем вам помочь если бы вы написали как вы это хотите использовать 

[Sabahs]

Можно так
http://depositfiles.com/ru/files/6f7a2nbpc

[Maxagg]

то же самое что и inMyWindow   

http://forum.ascon.ru/index.php/topic,15203.0.html

[NikOpoL]

var
  kompas:KompasObject;
  wd:hwnd;
procedure TForm1.FormCreate(Sender: TObject);
begin
  kompas:=KompasObject(GetActiveOleObject('Kompas.Application.5'));
  kompas.ActivateControllerAPI;
  wd:=kompas.ksGetHWindow;
  windows.SetParent(wd,panel1.Handle);
  SetWindowLong(wd, GWL_STYLE, WS_VISIBLE);
  MoveWindow(wd, 0, 0, panel1.Width, panel1.Height, true);
end;

Переведенный выше код мне не подходит, так как здесь происходит передача окна компаса панели, а мне необходимо наоборот сделать что бы передавалась panel1  паренту объекта компас. В общем для объекта компас нужно сделать родителем объект panel.  В KGAX так делать можно

var
  Form1: TForm1;
  FKGAX: TKGAX;
  fileadr:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute();
fileadr:=OpenDialog1.FileName;
FKGAX := TKGAX.Create(self);

FKGAX.Parent:=Panel1;
FKGAX.AddDocument(fileadr);
FKGAX.ActivateDocument(1) ;
FKGAX.Align:=alClient;
end;

Меня интересует реализация через KompasAPI7_TLB или KompasAPI5_TLB или нормальный пример работы с KGAX

PS. Я и Pass_OK работаем над этим вопросом вместе

[Maxagg]

Напишите пожалуйста если это не секрет для чего вам передать parent
где должна располагаться панель в компасе
и почему именно панель, а не все приложение? 

на основе примеров inMyWindow и inKompasWindow показано что средствами API Windows
можно передавать родитель куда угодно

[NikOpoL]

Я не передаю панель в компас, а наоборот передаю компас в панель. Это необходимо для создания просмотрщика. Но мне не подходит реализация предложенная в примерах (через HWND).Мне необходимо сделать для компаса родителем панель делфи (через Twincontrol).

можно передавать родитель куда угодно

Да можно но по вашей схеме получается Компас->Панель(потомок объекта компас), а мне нужно наоборот Панель->Компас(потомок панели).
Дело в том что свойство Parent у обьекта Компас через API является только для чтения и туда ничего занести не получается но в KGAX занести в Parent можно.

Я уже это реализовал через KGAX но там не настолько обширный функционал как в API.

[Sabahs]

Есть такой вариант
http://depositfiles.com/ru/files/cwsrz9q0p

[NikOpoL]

Есть такой вариант
http://depositfiles.com/ru/files/cwsrz9q0p

Хорошая программа,  только она мне никак не поможет.

[Maxagg]

может тогда уж нарисуешь что тебе надо, а то тебя не понять что ты хочешь  и чем тебе помочь

[NikOpoL]

У меня есть просмотрщик 3D. Так вот я хочу чтобы он открывал документы компас. Изображение выводится на стандартную панель в Делфе. Как вы мне посоветовали с передачей HWND от фрейма компаса мне не подходит так как его каждый раз нужно передавать. Мне нужно чтобы при создании потомков панели они наследовали и окно компаса.

[Sabahs]

вывод на панель exe файл+проект
http://depositfiles.com/ru/files/ncmv1bq8m

[NikOpoL]

вывод на панель exe файл+проект
http://depositfiles.com/ru/files/ncmv1bq8m

Спасибо за пример. Вижу нужные мне части кода.