Utilize a função
AnimateWindow
AW_BLEND - Funciona apenas em Windows 2000
AW_CENTER - Abre o formulário do meio para fora
AW_HOR_POSITIVE - Abre o formulário na horizontal da direita para esquerda
AW_HOR_NEGATIVE - Abre o formulário na horizontal da esquerda para direita
AW_VER_POSITIVE - Abre o formulário na vertical de cima para baixo
AW_VER_NEGATIVE - Abre o formulário na vertical de baixo para cima
AnimateWindow(form1.handle,1000,funcao)
Sabe o o que é um chatbot ? Sabe onde pode ser aplicado ?? Veja os exemplos em Delphi aqui.
Acesse mais informações sobre Delphi aqui
domingo, 25 de abril de 2010
sexta-feira, 9 de abril de 2010
Mostrando os milisegundos entre códigos Delphi, útil para testar a performace de SQL
var
startTick, endTick: Int64;
begin
startTick := GetTickCount;
//insira seu código SQL aqui
endTick := GetTickCount;
ShowMessage(IntToStr(endTick - startTick));
end;
Sabe o o que é um chatbot ? Sabe onde pode ser aplicado ?? Veja os exemplos em Delphi aqui.
Acesse mais informações sobre Delphi aqui
startTick, endTick: Int64;
begin
startTick := GetTickCount;
//insira seu código SQL aqui
endTick := GetTickCount;
ShowMessage(IntToStr(endTick - startTick));
end;
Sabe o o que é um chatbot ? Sabe onde pode ser aplicado ?? Veja os exemplos em Delphi aqui.
Acesse mais informações sobre Delphi aqui
Assinar:
Postagens (Atom)