Aber leider kann ich so den Button nicht löschen...
Delphi-Quellcode:
Bt:= TBitBtn(self.FindComponent('
BitBtn'+IntToStr(i)));
if System.Assigned(Bt)
then
begin
dec(i);
Bt.Free;
end;
EDIT: Geht doch
hatte Edt.Free geschrieben... Gut Danke für den Tipp...
So...jetzt will ich ja per Klick auf den Button einen Sound abspielen...den jeweiligen Pfad zur Datei, bekomme ich aus dem Edit Feld... also Edit+IntToStr(i)...
Aufrufen will ich die Prozedure so:
Delphi-Quellcode:
with TBitBtn.Create(self) do
begin
Parent:= Self;
Name:= 'BitBtn'+IntToStr(i);
Caption:= '>';
Left:= 243;
Top:= 6+(i)*(25);
Width:= 22;
Height:= 22;
OnClick:=ButtonClick; //<--- hier der Aufruf
end;
end;
So spielt es aber immer den Sound aus dem 1.Edit Feld ab...ist ja klar
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject);
begin
sndPlaySound(PChar(Edit.Text),SND_ASYNC);
end;
Also müsste ich schon beim erzeugen des Buttons
sndPlaySound(PChar(Edit + i.Text),SND_ASYNC);
mit einen OnClick Ereignis zuordnen?
Wie mache ich das?
OnClick:= ?