sexta-feira, 29 de agosto de 2008

Enter por tab

Vou começar postando uma dica de delphi que,
apesar de simples é muito útil no dia-a-dia

// Este código deve ser colocado no onkeypress de qualquer form
// A propriedade Keypreview do form de ser setada para true

if key= #13 then
begin
perform(cm_dialogkey,vk_tab,0);
key:=#0;
end;
if key= #27 then close; // opcional somente se vc quiser fechar a tela com Esc.

Nenhum comentário: