![]() |
|
#2
|
|||
|
|||
![]() Немного неправильно выразил постановку задачи - необходимо была не модальная, а форма отображаемая поверх всех окон. Вобщем решение найдено.
1) При создании ActiveX программно создаем форму procedure TActiveX.ActiveXCreate(Sender: TObject); ... FModalForm := TForm.Create(self); 2) Некоторые её свойства: BorderStyle - bsSizeToolWin FormStyle - fsStayOnTop Position - poScreenCenter 3) Устанавливаем SetWindowLong(FModalForm.Handle, GWL_HWNDPARENT, GetDesktopWindow); 4) В определенных местах вызываем Show и Close Всё ![]() ![]() |