VPF::Аплет - Форум программистов

rni

Дата 10.4.2008, 09:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 205
Регистрация: 10.3.2004

Репутация: нет
Всего: 3

Здравствуйте, уважаемые форумчане.
Написал аплет, он работает, но перед активацией explorer вылетает с ошибкой. Иногда пишет не правилный дескриптор окна.
Помогите в чем проблема? Windows XP SP2.

Код


unit dmApplet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  CtlPanel,  formOptions;

type
  Tfaccsetup = class(TAppletModule)

    procedure AppletModuleActivate(Sender: TObject; Data: Integer);
  private
  { private declarations }
  protected
  { protected declarations }
  public
  { public declarations }
  end;

var
  faccsetup: Tfaccsetup;

implementation

{$R *.dfm}

procedure Tfaccsetup.AppletModuleActivate(Sender: TObject; Data: Integer);
begin
  frmOptions:= TfrmOptions.CreateParented(Application.ControlPanelHandle);
  try
    frmOptions.ShowModal;
  finally
    frmOptions.Free;
  end;
end;

end.

Присоединённый файл ( Кол-во скачиваний: 11 )

error.png 7,34 Kb

--------------------

r-xr-xr-x 3 мусорных ведра корня 14312 9 января 2000 perl

rni

Дата 15.4.2008, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 205
Регистрация: 10.3.2004

Репутация: нет
Всего: 3

Иногда сообщение об ошибке появляется после выполнения аплета, при повторном открытии панели управления. В таком случае открываю "Мой компьютер" затем выбираю "панель управления". Но при закрытии Панели управления снова возникает ошибка.
-----------
Мда, взял cpldemo, прописал в uses свою форму. и демо пример начал выдавть ту же ошибку. Значит дело в форме...
-----------
Ну и окончательный вердикт: Аплет начинает глючить после того как форму кидается cxPageControl.

Тему можно закрыть. smile

Это сообщение отредактировал(а) rni - 16.4.2008, 11:03

--------------------

r-xr-xr-x 3 мусорных ведра корня 14312 9 января 2000 perl

rni

Дата 16.4.2008, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 205
Регистрация: 10.3.2004

Репутация: нет
Всего: 3

Заработало без ошибок только после создания новой формы без компонентов cx. ПРи добавлении любого cx контрола ошибка повторяется. smile

--------------------

r-xr-xr-x 3 мусорных ведра корня 14312 9 января 2000 perl

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »