Создать компонент в форме.

[Peshka5]

Доброго времени суток.
Работаю с компонентом TChromium. Мне нужно добавить его на форму, но уже после выполнения OnFormCreate (в нем я распаковываю .dll из ресурсов).
Косвенные решения (не через распаковку ресурсов) тоже приветствуются.
Delphi 7.

[Stilet]

Создай динамически.
Что-то типа:

With TChromium.Create do begin
 Parent:=self;
 align:=alClient;
 Visible:=true;
end;

[Peshka5]

Компилятор говорит, что не хватает параметров для Create.
Дополнил:

With TChromium.Create(Form1) do begin
Parent:=self;
align:=alClient;
Visible:=true;

При попытке компилирования появляется окошко CPU с ошибкой. Проблема в строчке Parent:=self; .

[Toxa]

возможно такого параметра вообще нет, Stilet привел примерный вариант
и я бы настоятельно рекомендовал не использовать конструкцию with
уж лучше

var
chrom : TChromium;
begin
chrom := TChromium.Create(Form1);
chrom.Parent:=self;
chrom.align:=alClient;
chrom.Visible:=true;

будет сразу ясно к чему относится параметр, и при дебаге проще будет смотреть значения параметров

[Stilet]

Текст ошибки как всегда засекречен в связи с крушением космического корабля пришельцев в Челябинске. Осторожнее - нас прослушивают.

[Аватар]

Toxa

Насчет with дело вкуса (признаюсь - тоже не использую).
Self доступно из метода формы (возможно ТС обращается не оттуда).
А вот Form1 использовать не фонтан - зависит от способа создания формы, типа - удосужился ли программист засунуть в этот указатель чего нужно. И если динамически создается несколько копий одной и той же формы, то совсем уж не фонтан

[Peshka5]

Сообщение от Stilet

Текст ошибки как всегда засекречен.

Текста ошибке нет как такового, после компиляции открывается окно CPU с непонятным содержанием и после продолжения программа закрывается.
Что ошибка в строчке TChromium.Parent:=self; узнал путем заключения.

Сообщение от Аватар

А вот Form1 использовать не фонтан - зависит от способа создания формы, типа - удосужился ли программист засунуть в этот указатель чего нужно.

Тогда я немного не понимаю что использовать кроме Form1, так как моя форма пуста.

[Аватар]

Полный код создания в студию

[Peshka5]

Сообщение от Аватар

Полный код создания в студию

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cefvcl, StdCtrls, ExtCtrls, OleCtnrs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s : array [1..6] of string;
  wb:TChromium;

implementation

{$R *.dfm}
{$R dlls.RES}

procedure TForm1.FormCreate(Sender: TObject);
var
  ms : TMemoryStream;
  rs : TResourceStream;
  m_DllDataSize:integer;
  mp_DllData:Pointer;
  i : integer;
begin
   s[1]:='d3dcompiler_43.dll'; //Вношу названия dll'ок в s.
   s[2]:='d3dx9_43.dll';
   s[3]:='icudt.dll';
   s[4]:='libcef.dll';
   s[5]:='libEGL.dll';
   s[6]:='libGLESv2.dll';
   for i:=1 to 6 do
   if 0 <> FindResource(hInstance, PAnsiChar('DLL'+inttostr(i)), RT_RCDATA) then
   begin
    rs := TResourceStream.Create(hInstance, PAnsiChar('DLL'+inttostr(i)), RT_RCDATA);
    ms := TMemoryStream.Create; 
     try
      ms.LoadFromStream(rs);                 //Не мой код, но рабочий.
      ms.Position := 0; 
      m_DllDataSize := ms.Size;
      mp_DllData := GetMemory(m_DllDataSize);
      ms.Read(mp_DllData^, m_DllDataSize);
     finally
      ms.SaveToFile(s[i]);  //Сохраняю из мемори стрим в файл называя названиями из s.
      ms.Free;
      rs.Free;
     end;
   end;
   wb:=TChromium.Create(Form1);  //Проблемное место.
   wb.Parent:=self;
   wb.align:=alClient;
   wb.Visible:=true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:integer;
begin
for i:=1 to 6 do
if FileExists(s[i]) then DeleteFile(s[i]);  //Удаляю dll.
end;

end.

[Stilet]

открывается окно CPU

Скриншот покажешь?