Fórum Label com & #555671
02/06/2016
0
Olá bom dia, minha dúvida é a seguinte coloquei no meu form um label com o caption= &Pesquisar e gostaria de que quando apertasse as teclas Alt + P o label mandasse o focus para um combobox como posso fazer isso?
Francisco Júnior
Curtir tópico
+ 0
Responder
Post mais votado
02/06/2016
Boa noite.
Usei um timer:
function Tecla_Precionada(const Key: integer): boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Tecla_Precionada(18) and Tecla_Precionada(80) then
begin
Timer1.Enabled:=false;
ComboBox1.SetFocus;
ComboBox1.DroppedDown:=true;
Timer1.Enabled:=true;
end;
end;
Usei um timer:
function Tecla_Precionada(const Key: integer): boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Tecla_Precionada(18) and Tecla_Precionada(80) then
begin
Timer1.Enabled:=false;
ComboBox1.SetFocus;
ComboBox1.DroppedDown:=true;
Timer1.Enabled:=true;
end;
end;
Raimundo Pereira
Responder
Gostei + 1
Mais Posts
06/06/2016
Marco Antônio
Bom dia Francisco.
Na propriedade 'FocusControl' do label vc precisa apontar o componente que deseja colocar o foco.
Abc.
Na propriedade 'FocusControl' do label vc precisa apontar o componente que deseja colocar o foco.
Abc.
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)