Problema com ShortCut

Delphi

23/06/2005

Olá amigos,

Meu problema é o seguinte... Tenho em uma tela um TMainMenu e um Memo e um Edit. No item do meu Menu tenho a tecla de atalho F7 cadastra como ShortCut. Mas a tecla de atalho só pode funcionar se eu estiver dentro do Edit. Se estiver no Memo o evento OnKeyDown deve fazer outra coisa.
Alguém tem uma idéia de como fazer isto? Mostrar no Menu que o ShortCut é o F7 mas não executar ele?
Grato,

Rodrigo Cesar


Rodc

Rodc

Curtidas 0

Respostas

Sandra

Sandra

23/06/2005

Rodrigo,

Não entendi essa parte:
Mostrar no Menu que o ShortCut é o F7 mas não executar ele?


Mas, tente:
procedure TForm4.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 If (key = VK_F7) and (Edit1.Focused) then
   ShowMessage(´Está no Edit!´)
 else
   If (key = VK_F7) and (Memo1.Focused) then
     ShowMessage(´Está no Memo!´);
end;

Lembre-se de certificar se o KeyPreview do form = True.


GOSTEI 0
Rodc

Rodc

23/06/2005

O problema é que evento do menu é sempre executado primeiro e depois não passa mais no form.


GOSTEI 0
POSTAR