Delphi-Quellcode:
procedure cedit(ort:tcomponent; par:twincontrol; jahr:string; x,y:integer);
var MyEdit: TEdit;
begin
MyEdit := TEdit.Create(ort);
with MyEdit do begin
Parent := par;
Height := 21;
Width := 33;
Text := jahr;
Left := x;
Top := y;
end;
end;
und das dann bei onchange (bzw extra procedure
Delphi-Quellcode:
for i:=1 to 5 do
cedit(Form2.PageControl1, Form2.PageControl1, inttostr(1872+i), 16,32+32*i);
for i:=1 to 34 do
cedit(Form2.PageControl1, Form2.PageControl1, inttostr(1884+i), 16,160+32*i);
aber nach dem erstellen will ich alle edit felder auch wieder auslesen und ich hab keine ahnung wie ich die ansprechen soll (edit1 geht ja wohl nicht)
ach ja, das alles soll ne art datenbank werden
ich les halt aus einer ini datensätze aus und dementsprechend werden dann die obj erstellt