So richtig funktioniert es noch nicht...
Delphi-Quellcode:
//+
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
inc(i);
with TEdit.Create(self) do
begin
Parent:= Self;
Name:= 'Edit'+IntToStr(i);
Left:= 8;
Top:= 32;
Width:= 233;
end;
with TBitBtn.Create(self) do
begin
Parent:= Self;
Name:= 'Edit'+IntToStr(i);
Caption:= 'Play';
Left:= 244;
Top:= 32;
Width:= 22;
Height:= 22;
end;
end;
Undzwar erzeugt es ja das Edit-Feld und nennt es Edit+i (=Edit1). Dann erzeugt es den Button und nennt ihn auch Edit+i (=Edit1) -> dadurch bekomme ich eine
Exception, da das Objekt schon vorhanden ist...
Benenne ich einen Namen um...also z.b. Editblabla...kann ich zwar einmal beide Objekte erzeugen, doch beim 2. mal wieder der Fehler wie oben. Editblabla1 ist schon vorhanden...
Mh...