Button + Edit Feld - zur Laufzeit entfernen?

[atgis]

Hallo,

Ich bastle gerade an einem kleinem Programm, welches simple Wav-Dateien abspielen soll. Das ist ja soweit auch kein Problem...über das Edit Feld gebe ich den Pfad ein und drücke auf Play! Funktioniert!

Nun möchte ich aber gerne mehrere Sounds abspielen können. Also brauche ich mehrere Edit-Felder und Abspielbuttons.

Nun möchte ich die gern dynamisch über eine Button (+,-) hinzufügen/entfernen.

http://s6.directupload.net/images/071218/cwdk2siw.jpg


Wie mache ich das? Objekte während der Laufzeit hinzufügen?


Das Edit-Feld in meinem Programm heißt "Edit1" der Button "BitBtn1"...diese müssten doch dann beim hinzufügen (also klick aufs +) hochgezählt werden? Also Edit2, Edit3 usw...


Oder gibt es eine viele bequemere und einfacher Lösung als meine Idee?

MfG

[DeddyH]

Pack doch eine ListBox drunter und fülle sie aus dem Edit

[atgis]

Ja hab ich auch schon gedacht...aber ich wollte gerne eine Lösung mit Buttons (o.ä.)...damit man schnell einen Sound abspielen kann.

Wenn man erst einen Sound in einer ListBox suchen müsste, würde es schon zulang dauern

[mkinzler]

Delphi-Quellcode:

Inc(Index);
with TEdit.Create( self) do
begin
   Parent := Self;
   Name := 'Edit'+IntToStr( index);
   Left := ...
   ...
end;
with TButton.Create( self) do
begin
   Parent := Self;
   Name := 'Edit'+IntToStr( index);
  Caption := ...
   Left := ...
   ...
end;

[DeddyH]

Und hinterher schön wieder freigeben

P.S.: Ob ich jetzt den entsprechenden Abspiel-Button suchen muss oder den Dateinamen in einer ListBox, ist IMHO Jacke wie Hose

[Apollonius]

Freigeben muss man Komponenten nicht, wenn man einen Owner hat.

[atgis]

Wer das "Nippelboard" von TV-Total kennt, weiß was ich bezwecken möchte...

[mkinzler]

Zitat von Apollonius:

Freigeben muss man Komponenten nicht, wenn man einen Owner hat.

Was in meinem Beispiel der Fall ist.

[atgis]

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...

[Crazy Ivan]

weil du dem edit den selben namen wie dem bitbtn gibst.

richtig:

Name:= 'Edit'+IntToStr(i); für das edit

Name:= 'BitBtn'+IntToStr(i); für den button

bei dir ist das bei beiden gleich ==> beide haben den selben namen ==> exception