domingo, 25 de abril de 2010

Animação em formulário Delphi - Animate Window

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)

Acesse mais informações sobre Delphi aqui

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 aqui
endTick := GetTickCount;
ShowMessage(IntToStr(endTick - startTick));
end;

Acesse mais informações sobre Delphi aqui