Edit-Felder während der Laufzeit erstellen... wie?

[tiller]

Hallöchen!

Ich würde gerne anhand einiger Angaben, die der Anwender in meinem Programm machen kann, eine sich daraus ergebende Anzahl an Edit-Feldern an bestimmten Stellen meines Formulars erstellen. Kann mir jemand sagen, wie das funktioniert. Kann leider die Hilfe nicht aufrufen, da diese unter Vista nicht funktioniert.

Gruß, tiller

[sirius]

Delphi-Quellcode:

Editx:=TEdit.create(owner) //owner kann das Formular sein, eine andere Komponente oder nil
//wenn owner gelöscht wird, dann wird auch dein Edit automatisch mit gelöscht
Editx.left:=...
Editx.right:=...
//usw usf.
//Ereignisse legsst du genauso fest; zuweisen tust du eben eine Methode die die entsprechende Deklaration hat

[mkinzler]

Wenn die Komponente sichtbar sein soll fehlt noch der Parent:
Editx.parent := <Parent>;

[tiller]

Bekomme die Meldung: "undefinierter Bezeichner: 'editx'"
Kann sein, dass ich mich blöd dranstelle, ihr könnt mir bestimmt sagen, was ich falsch mach

[mkinzler]

War auch nur ein Platzhalter für die Instanzvariable.

Kannst natürlich auch auf eine verichten:

Delphi-Quellcode:

with TEdit.create(owner) do
begin
    Parent := self;
    Left := ...
    Top := ...
   //usw usf.
end;

[sirius]

Ja, EditX ist ein Zeiger auf das Objekt. (Das ist ein Beispiel und nicht zum kopieren gedacht; Wie auch? ich kenne ja dein Programm nicht)

Und denn solltest du an geeigneter Stelle aml als TEdit deklarieren. Aber wo das für dich ist, weis ich nicht. Wenn du mehrere TEdits erstellen willst, würde ich über eine TObjectList nachdenken:

Delphi-Quellcode:

type Form1=class(TForm)
      ...
      myEdits:TObjectList //an geeigneter Stelle erstellen

procedure createEdits;
var Edit:TEdit;
begin
  Edit:=TEdit.create(self);
  Edit.parent:=self;
  Edit.top:=10;
  Edit.left:=100;
  ...
  myEdits.add(Edit);
end;

Nur ein Beispiel.

[tiller]

Danke für eure Hilfe, es hat jetzt geklappt!
Die Edits werden doch einfach durchnummeriert beim generieren oder?

[sirius]

Nö.
Kommt drauf an, was du gemacht hast.

[mkinzler]

Wenn du dies so als namen bei der Erzeugung angibst, ja.

[tiller]

Ja, das mit der Namensgebung funzt ganz gut so. Könnt ihr mir sagen, wie ich mein Programm resetten kann? Also auf Knopfdruck einfach neu starten; jedes Edit einzeln löschen ist nämlich eher unnötig...