если какое-то сообщение будет
висеть какое-то время, то следующие сообщения могут пропадать. если организовывать стек сообщений, то после последнего какое-то время они будут еще меняться...
к решению 1 варианта:
Код:
var
TickCount: DWORD = 0;
procedure TForm1.SetLabelText(const Text: String);
begin
if GetTickCount-TickCount<1000 then Exit;
TickCount:=GetTickCount;
Label1.Caption:=Text;
end;
задать текст сообщения:
Код:
SetLabelText(IntToStr(GetTickCount));
текст будет обновляться не чаще чем через секунду