Problem beim Erzeugen eines 2. Objekts von einer Klasse.

[ustra]

Hi,

danke für die Antwort. Ich habe Deine Verbesserungen eingepflegt. Jetzt bekomme ich immer die Meldung: Eine Komponente mit dem Namen "Button 2" existiert schon. Ein Button heißt auch "Button 2". Allerdings verstehe ich nicht, warum er Button2 als Bezeichner nimmt. Die Fehlermeldung taucht in folgender Zeile auf: dbf.create(Form1); und nciht in der Konstruktor-Methode. Ich erzeuge das Objekt wie folgt:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var dbf : TDatenbank;
begin
  dbf.create(Form1);
  dbf.destroy;
end;

Beim Start des Programms rufe ich im onCreate des Formulars so auf (ohne Fehlermeldung):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  db1 := TDatenbank.create(Form1);
  db1.onFehler := dbFehler;
end;

Ulrich