Problemas ao capturar tecla F1
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]
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]
Mutz
Curtidas 0
Respostas
Paulolider
11/03/2004
BOM SE VOCÊ FOR NO AJUDA DO DELPHI E PESQUISAR VIRTUAL KEY VOCÊ TERÁ TODAS AS TECLAS
AGORA PARA CAPTURAR O F1 VOCÊ USA NO EVENTO ONKEYDOWN DO
COMPONENTE.
IF KEY=VK_F1 THEN
BEGIN
.
.
.
END;
PAULO MARCOS PAULOLIDER@HOTMAIL.COM.BR
AGORA PARA CAPTURAR O F1 VOCÊ USA NO EVENTO ONKEYDOWN DO
COMPONENTE.
IF KEY=VK_F1 THEN
BEGIN
.
.
.
END;
PAULO MARCOS PAULOLIDER@HOTMAIL.COM.BR
GOSTEI 0