Conctenar Funções

Delphi

18/09/2009

Ola Pessoal

Gostaria de saber como faço para conctenar uma função? Exemplo no meu Form no evento ´KeyDown´ coloquei para utilizar os botões Page Up e Page Down para pular para o proximo e anterior Registro só que agora quero que quando o usuario clique em Crlt+End va para o ultimo registro e Ctrl+Home para o primiero?

Alguem sabe ?

Valeu


Fabianoluizdb

Fabianoluizdb

Curtidas 0

Respostas

Afarias

Afarias

18/09/2009

case Key of
  VK_PRIOR: DataSet.Prior;
  VK_NEXT: DataSet.Next;
  VK_HOME: if (ssCtrl in Shift) then DataSet.First;
  VK_END: if (ssCtrl in Shift) then DataSet.Last;
end;



GOSTEI 0
Fabianoluizdb

Fabianoluizdb

18/09/2009

Valeu

Muito obrigado meu amigo

Bom serviço.


GOSTEI 0
POSTAR