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