Fórum Problemas ao capturar tecla F1 #219946

Estou desenvolvendo um componente para filtro em tabelas sql e preciso capturar a tecla F1. O componente funcionará simplesmente colocando no form, entao desenvolvemos a seguinte rotina

procedure TFiltro.CMDialogKey(var Message: TCMDialogKey);
begin
if (Message.CharCode = VK_F1) then
begin
Componente := GetParentForm(Self).ActiveControl;
Alimenta_Fitro;
end;
end;

Testes feitos usando VK_RETURN funcionam perfeitamente mas com VK_F1 nao tem maneira de funcionar... alguem poderia me auxiliar?

Obrigado

Romulo Pehls :x


[color=green:b7b75c8545][b:b7b75c8545]Título editado(Svsk) - maiúsculas[/b:b7b75c8545][/color:b7b75c8545]