ActiveX

28.12.2013, 12:46. **Показов** 389. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Добрый день всем.
Подскажите решение задачи.
Создаю визуальный ActiveX control на основе ActiveForm.
Хочу при клике на кнопочку вызвать другую форму.
Киньте маленький примерчик кто это уже делал.
Заранее спасибо.

Добавлено через 18 часов 58 минут
Неужели никто не делал?

Добавлено через 14 минут
Сейчас я делаю так:

Delphi

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; , то форма открывается вообще как отдельное приложение на панели задач.

	28.12.2013, 12:46