Promove um estado de espera no aplicativo
procedure Delay(iMSecs: Integer);
var
lnTickCount: LongInt;
begin
lnTickCount := GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount – lnTickCount) >= LongInt(iMSecs));
end;
Posts Similares
Como importar um arquivo texto para uma tabela do Access
Nesta matéria do WebMundi.com, você aprenderá como importar um arquivo texto para uma tabela do Access utilizando a linguagem de programação Visual Basic.
Obter o username logado no Windows
Como obter o username logado no Windows em Delphi Esta função permite que através da rotina GetUserName da API…
Verifica a existência de uma placa de som
Verifica a existência de uma placa de som Como verificar a existência de uma placa de som via programação Delphi…
Aceitar só números em um campo de texto
Nesta dica do Web Mundi.com veremos como programar em Visual Basic para fazer que um campo texto só aceite números durante a entrada de digitação.
Localizar Pastas do Windows
Localizar Pastas do Windows ‘Código que recupera Pastas do Windows, como Strings: ‘Ex: C:\Windows\Desktop, C:\Windows\Histórico… ‘——————- ‘Código para o Form…
Como Instalar o XAMPP Linux no WSL Windows – Servidor Web Local Linux
Nesta publicação e aula do canal WebMundi.com, aprenderemos instalar o servidor Web Local XAMPP Linux no WSL do sistema Operacional…