Einzelnen Beitrag anzeigen

Benutzerbild von Remote1
Remote1

Registriert seit: 22. Okt 2003
Ort: Dippoldiswalde
252 Beiträge
 
Delphi 6 Personal
 
#10

Re: in Laufzeit Objakt hinzufügen

  Alt 8. Jan 2004, 09:22
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
  Mit Zitat antworten Zitat