|
#1
|
|||
|
|||
ActiveX
Добрый день всем.
Подскажите решение задачи. Создаю визуальный ActiveX control на основе TActiveForm. Хочу при клике на кнопочку вызвать другую форму (TForm). Киньте маленький примерчик кто это уже делал. Заранее спасибо. Сейчас я делаю так: Код:
unit Main; type TUnitControlX = class(TActiveForm, IUnitControlX) private { Private declarations } FEvents: IUnitControlXEvents; FormData: TFormData; procedure TUnitControlX.Initialize; begin Application.Handle:=Handle; FormData:=TFormData.Create(self); end; procedure TUnitControlX.RzBtnParsClick(Sender: TObject); begin FormData.Show; end; Результат: Кладу на форму созданный ActiveX, все хорошо. запускаю на выполнение и кликаю по кнопке. Открывается FormData, но если свернуть основное приложение то форма FormData не сворачивается(. Если не писать фразу Application.Handle:=Handle; , то форма открывается вообще как отдельное приложение на панели задач. Последний раз редактировалось Admin, 28.12.2013 в 13:11. |