Witam. Mam pytanie - czy dałoby się jakoś zoptymalizować taki kod:
procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with MediaPlayer1 do
begin
FileName:=ExtractFilePath(ParamStr(0)) + 'C1.mp3';
Open;
Play;
end;
end;
procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MediaPlayer1.Stop;
end;
procedure TForm1.SpeedButton2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with MediaPlayer2 do
begin
FileName:=ExtractFilePath(ParamStr(0)) + 'Dis1.mp3';
Open;
Play;
end;
end;
procedure TForm1.SpeedButton2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MediaPlayer2.Stop;
end;
itd... przycisków jest 24. Czy da się stworzyć jakieś np 2 procedury MouseDown i MouseUp i tylko w zależności od danego przycisku wywołają one odpowiedni dźwięk bądź go zatrzymają?
Proszę o poradę
I przepraszam za problem