Тема: ActiveX
Показать сообщение отдельно
  #1  
Старый 28.12.2013, 12:37
kos_ua kos_ua вне форума
Прохожий
 
Регистрация: 28.12.2013
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию 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; , то форма открывается вообще как отдельное приложение на панели задач.
Ответить с цитированием