Hallo,
Ich bin grade dabei spaßeshalber eine "Blaulichtsteuerung" zu programmieren. Hierbei kann der Benutzer auf einem Steuerelement (BitButton) das Martinshorn anschalten. Ich habe eine Wave Datei, die diese Tonfolge abspielt, in eine Schleife programmiert. Sie läuft also nachdem man es angeschaltet hat z.b. 20 mal ab. Meine Vorstellung wäre nun aber, dass der Benutzer mit einem Klick das Signal anmacht und es einfach weiterläuft. So lange bis der Benutzer wieder auf den Button klickt und es sich ausschaltet.
Delphi-Quellcode:
procedure TForm1.BitBtnPressluftClick(Sender: TObject);
Var i :Integer;
begin
Repeat
begin
PlaySOUND(PChar('.\Pressluft-2.wav'),hInstance,snd_LOOP );
end;
until ;
end;
Das wäre meine Überlegung gewesen. Nach until müsste dem Programm also gesagt werden "until click" oder irgend so was.