segunda-feira, 23 de novembro de 2009

Como mostrar o mouse como uma ampulheta

Try
Screen.Cursor := crHourGlass;
{ Escreva o ação a executar aqui }
finally
Screen.Cursor := crDefault;
end;
Application.ProcessMessages;

Nenhum comentário:

Postar um comentário