Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
é possivel colocar um sinal sonoro neste caso abaixo?if (Pos('QTA',Linha) >0) then begin pnqta.Visible := True; break; end ;desde ja agradeço.
Olá.
Assim?
if (Pos('QTA',Linha) >0) then begin messagebeep(0); pnqta.Visible := True; break;end