DLL Formular Doppelte Komponenten

[Tommy82]

Hallo,

Ich habe folgendes Problem:

Ich habe eine "Artikel.DLL" welche ien Formular aufruft.

Delphi-Quellcode:

library Artikel;

uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form_anlegen};

{$R *.res}

Procedure Artikel_Neu;
var
 Form_anlegen : TForm_Anlegen;
BEGIN
 Form_Anlegen := Form_Anlegen.Create(NIL);
 Try
  Form_Anlegen.Showmodal;
 Finally
  Form_Anlegen.Release;
 END;
END;

exports
 Artikel_Neu;

begin
end.

und das Hauptprogramm mit dem ich auf die Artikel.dll zugreife

Delphi-Quellcode:

interface
...

Procedure Artikel_Neu; stdCall;
...

implementation

{$R *.dfm}

Procedure Artikel_Neu; stdCall; external 'Artikel.dll';
...

procedure TUebersicht.NeuAnlegen1Click(Sender: TObject);
begin
 Artikel_Neu;
end;

Nun das Problem:

wenn ich die DLL aufrufe (mit Form_anlegen), dann erhalte ich die Fehlermeldung, dass die Komponente xy bereits vorhanden ist.
(xy ist z.B. ein DBGrid oder ein normales Label wenn ich den Grid rausmache).
Nur dass auf dem Form_Anlegen Formular kein Grid vorhanden ist und auch alle Labels usw anders heißen als im Hauptprogramm.
Was mache ich falsch?

mfg

Tommy82

Edit zwecks Fehler im Quelltext

[Tommy82]

Delphi-Quellcode:

Procedure Artikel_Neu;
var
 Form_anlegen : TForm_Anlegen;
BEGIN
 Form_Anlegen := Form_Anlegen.Create(NIL);
 Form_Anlegen.Showmodal;
END;

Ich habe den Quelltext der DLL mal so abgeändert, aber selbes Phänomen.

mfg

Tommy82

[f.siebler]

stellt sich doch mal wie frage was alles auf dem formular ist... :-)

[Bernhard Geyer]

Ist diese Zeile wirklich so?

Delphi-Quellcode:

Form_Anlegen := Form_Anlegen.Create(NIL);

Du mußt TForm_Anlegen.Create(nil) schreiben

[f.siebler]

verdammt... das hätte mir auffallen können :-) einfach noch zu früh am Morgen :-)

[Tommy82]

Hey jo, das wars(die ganze aufregung wegen einem "T").

Lustigerweise habe ich es in den anderen DLL´s richtig.

Danke für eure Hilfe.

mfg

Tommy82