Hey, habe ziemlich lang gebraucht bis ich den Fehler gefunden habe ^^
Das ist deine aktuelle
DPR Datei.
Delphi-Quellcode:
program BatchEditor;
uses
Forms,
Ausgeben in 'Ausgeben.pas',
Hauptfenster in 'Hauptfenster.pas' {Form1},
gehezu in 'gehezu.pas' {gehzu: TFrame};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Du hast 2 Mal! das Formular erstellt, also einmal rauslöschen.
Und wenn du 100 Edits brauchst dann erstell die doch dynamisch:
Delphi-Quellcode:
VAR I:Integer; newEdit:TEdit;
BEGIN
FOR I := 0 TO 10
DO BEGIN
newEdit := TEdit.Create(Form1);
newEdit.Name := 'eEingabe'+IntToStr(I);
newEdit.Parent := Form1;
newEdit.Top := I * 30 + 8; {Abstand in Abhängikeit von I}
newEdit.Left := 8;
newEdit.Width := 100;
{Hier kannst du noch weitere Eigenschaften/Methoden deklarieren}
newEdit.Show;
END;
Zugreifen kannst du auf die Editfelder da du wie im designer einen Namen vergeben hast mit:
Delphi-Quellcode:
BEGIN
newEdit := (Form1.FindComponent('eEingabe0') AS TEdit); // "Typecast" mit TEdit ist nötig damit man weiß um was es sich handelt.
newEdit.Text := 'Neuer Text';
END;