Compartilhe : 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; Compartilhe :
Delphi | Desenvolvimento de Software Converte uma String em Real Compartilhe : Compartilhe :Converte uma String em Real Function StrToReal(InStr: String): Real; var Code : Integer; Temp : Real; begin Result :=… Compartilhe :
Python Criando um Jogo Simples com Python Compartilhe : Compartilhe :Criando um Jogo Simples com Python Aprenda a criar um jogo simples, como Pedra, Papel e Tesoura, usando Python…. Compartilhe :
Delphi | Desenvolvimento de Software Utilizar o MessageBox com parâmetros Compartilhe : Compartilhe :Utilizar o MessageBox com parâmetros var Button: Integer; Mensagem1 : Array[0..79] of Char; Mensagem2 : Array[0..79] of Char; begin… Compartilhe :
Delphi | Desenvolvimento de Software Como Instalar um Sistema Delphi na Máquina do Cliente Compartilhe : Compartilhe :Ao distribuir um sistema desenvolvido em Delphi 2.0 que utiliza banco de dados, é essencial incluir os arquivos corretos… Compartilhe :
Desenvolvimento de Software | Visual Basic Ativando o Num Lock via código Compartilhe : Compartilhe :Ativando o Num Lock via código 1a. Parte: Insira o seguinte código nas declrações gerais de um módulo .BAS… Compartilhe :
Delphi | Desenvolvimento de Software Chama arquivos BMP de uma Dll Compartilhe : Compartilhe ://coloque as imagens em um arquivo Res e compile a biblioteca com a diretiva {$R icones.res} //para chamar as… Compartilhe :