Fehler beim create von selbst Programmiertem Form

[remie]

Hallo Leute wollte mal ein Form selber Programmieren, und habe ne neue unit gemacht ...
nen Konstruktor geschrieben, und wenn ich dann das create ausführe bekomme ich den tollen fehler
Lesen von adresse ...
Geht das nicht ohne eine dfm datei ???
Hier mal der code:

Delphi-Quellcode:

unit Unit2;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Menus,Grids;



  type
    TimportForm = class (TForm)
      close      : TButton;
      data       : TStringGrid;
      data_menue : TPopupMenu;
  private

  public
    constructor create(AOwner : TComponent;typ : Integer);overload;
  end;
implementation

constructor TimportForm.create (AOwner : TComponent;typ : Integer);
begin
  inherited Create(AOwner);
  self.close := TButton.Create(self);
  self.Width := 200;
  self.Height := 200;
  self.Position := poMainFormCenter;
  self.close.Left := 150;
  self.close.Top  := 150;
  self.close.Width := 30;
  self.close.Height := 15;
end;

end.

[dataspider]

Hi,

ohne DFM - Datei musst du den Constructor CreateNew aufrufen.

Frank

[remie]

HM da kommt die gleiche fehlermeldung ....
muss ich bei CreateNew was beachten ?
ich hab das mal so eingebunden:

Delphi-Quellcode:

unit Unit2;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Menus,Grids;



  type
    TimportForm = class (TForm)
      close      : TButton;
      data       : TStringGrid;
      data_menue : TPopupMenu;
  private

  public
    constructor createNew(AOwner : TComponent;Dummy : Integer = 0;typ : Integer =0);overload;
  end;
implementation

constructor TimportForm.createNew (AOwner : TComponent;Dummy : Integer = 0 ;typ : Integer = 0);
begin
  inherited CreateNew(AOwner,Dummy);
  self.close := TButton.Create(self);
  self.Width := 200;
  self.Height := 200;
  self.Position := poMainFormCenter;
  self.close.Left := 150;
  self.close.Top  := 150;
  self.close.Width := 30;
  self.close.Height := 15;
end;

end.

[RavenIV]

Folgende Tips kann ich Dir geben:
- lesen in der Delphi-Hilfe, was CreateNew eigentlich macht
- das Programm durchdebuggen mit F7 / F8 und schauen, wo genau der Fehler auftritt
- hier im Forum nach CreateNew suchen und die Beiträge durchlesen

[DeddyH]

Außerdem ist es ungeschickt, einen Button genauso wie eine vorhandene Methode zu benennen.

[TBx]

Hallo!

Mir fällt folgendes auf:

• Du hast vergessen, den Parent des Buttons zu setzen, so wird der niemals sichtbar
• Einen Overload mit optionalen Parametern zu bauen ist ziemlich unsinnig und auch gefährlich. Selbst wenn man weiß, wie der aktuelle Compiler dies behandelt, so kann man sich nicht sicher sein, wie der nächste Compiler es macht.
• Die Zugriffsverletzung kommt nicht aus dem geposteten Code. Wie ruftst DU denn Dein Form auf?

Gruß

Thomas