Hallo,
ich versuche gerade nach dieser Anleitung:
http://www.delphipraxis.net/466569-post10.html
eine Form dynamisch zu erstellen, bekomme immer die Fehlermeldung:
[DCC Fehler] UMain.pas(269): E2010 Inkompatible Typen: 'TFrmWeb' und 'procedure, untyped pointer or untyped parameter'
hier mein Quelltext:
Die zu "kopierende" Form:
Code:
unit UWeb;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs, SHDocVw,
Vcl.OleCtrls;
type
TFrmWeb = class(TForm)
wb_main: TWebBrowser;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
FrmWeb: TFrmWeb;
implementation
{$R *.dfm}
end.
und hier der Aufruf:
Code:
var frm: TFrmWeb;
Begin
frm := TFrmWeb.Create(self); // TForm2 Erstellen
frm.wb_main.Navigate(p_aufruf);
frm := frm.Show; // TForm2 Anzeigen
setlength(FormList, length(FormList)+1); // Array um ein Element erhöhrn
FormList[high(FormList)] := frm;
end;
Wer hat denn da mal ne zündende Idee?
der Fehler tritt hier auf: frm := frm.Show; // TForm2 Anzeigen
Gruss
Mc