Gibt es da keinen besseren Ansatz?
Das geht auch besser mit einem Memo:
Delphi-Quellcode:
//Aufrufen, wenn ListBox1 geändert oder gefüllt wird
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.Lines:= ListBox1.Items;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
var
myTime : TDateTime;
formatted :
string;
begin
myTime:= now;
DateTimeToString(formatted, '
t', myTime);
if formatted<>Label1.caption
then Label1.Caption:= formatted
else Exit;
//wird nur 1x/Minute ausgeführt beim Minutenwechsel
if POS(Label1.caption,Memo1.Text)<>0
then
WinApi.Windows.Beep(1500,50);
// oder weiter mit procedure AUSWERTUNG...
end;