Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

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

Последний раз редактировалось Admin, 28.12.2013 в 13:11.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:26.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter