Código Delphi [-] procedure TfrmVentas.mskCodProdExit(Sender: TObject); begin sleep( 500 ); <--- Esto le da medio segundo al procedimiento para limpiar la cola de mensajes de windows if NOT(mskCodProd.Text='') then
procedure TfrmVentas.mskCodProdExit(Sender: TObject); begin sleep( 500 ); <--- Esto le da medio segundo al procedimiento para limpiar la cola de mensajes de windows if NOT(mskCodProd.Text='') then