Código
procedure Tfrmpesqtso.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (KEY=39) then
begin
dm.tbtso.Prior;
end;
if (KEY=41) then
begin
dm.tbtso.next;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009