Herzlich willkommen in der Delphi-PRAXiS, jupzup.
Wenn du die Zahl der Items in der ListBox überwachst, dann könnte es so funktionieren:
Delphi-Quellcode:
begin
for i:= 0 to Pred(Alarmstatus) do
begin
if Group.ItemValue[i] then
begin
Inc(AlarmCount);
with MsgLog do
begin
while Succ(Items.Count) >= VisibleItemCount do
Items.Delete(0);
Items.Add(ItemList1.Items[i].Caption + ' Störung liegt an.');
end;
end;
end;
Getippt und nicht getestet.
Freundliche Grüße vom marabu