Label com &
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
Curtidas 0
Melhor post
Raimundo Pereira
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;
GOSTEI 1
Mais Respostas
Marco Antônio
02/06/2016
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.
GOSTEI 1