Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2017, 17:56   #1
RealSHELS
Форумчанин
 
Аватар для RealSHELS
 
Регистрация: 04.03.2008
Сообщений: 176
По умолчанию Своя форма, Show

Добрый день.

Есть свой клас:
Код:
TFormBrowser = class(TForm)
  private
    FZnak: String;
    FCarInfo: TCarInfo;
    WebBrowser: TWebBrowser;
    Timer: TTimer;
  public
    constructor Create(AOWner: TComponent; CarInfo: TCarInfo; Znak:String);
    destructor Destroy;
  end;
Конструктор:
Код:
constructor TFormBrowser.Create(AOWner: TComponent; CarInfo: TCarInfo;
  Znak: String);
begin
  CreateNew(AOWner);  // пришлось делать так, чтобы без dfm файла
  Self.Width:=700;
  Self.Height:=700;
  FCarInfo:=CarInfo;
  FZnak:=Znak;

  CoInitialize(nil);
  WebBrowser:=TWebBrowser.Create(Self);
  TWinControl(WebBrowser).Parent:=Self;
  WebBrowser.Silent:=true;
  WebBrowser.Align:=TAlign.alClient;

  Timer:=TTimer.Create(Self);
  Timer.Enabled:=false;
  Timer.Interval:=3000;

end;
Создание екземпляра класа:
Код:
WebForm:=TFormBrowser.Create(Application, CarInfo, Edit2.Text);
WebForm.Show;
Иногда, при создании формы (нашел способ чтобы постоянно воспроизводить ошибку), а точнее при WebForm.Show;

Отладчик выкидывает в юнит VCL.Forms -> procedure TCustomForm.SetWindowToMonitor;
на строчку:
Код:
else if (FDefaultMonitor = dmActiveForm) and (Screen.ActiveCustomForm <> nil) then
        AppMon := Screen.ActiveCustomForm.Monitor.Handle
Погуглил, нашел это: http://qc.embarcadero.com/wc/qcmain.aspx?d=10770

Попробывал использовать решение которое там представлено.
Закоментировал старый код, вставил новый, но ошибку выкинуло на старую закоментированую строчку.
Немного не понял почему так, или как нужно перекомпилировать этот модуль (VCL.Forms)

Кто-нибудь сталкивался с таким, как решается?
RealSHELS вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
своя страничка master1 Помощь студентам 0 09.01.2013 11:51
Своя ОС Дэнис Помощь студентам 11 22.02.2012 23:41
Своя CMS soonner PHP 20 05.11.2010 00:23
Своя ОС koljsch Общие вопросы C/C++ 5 22.03.2009 09:38