RadioGroup, cada vez pressionada tecla altera os items

Question

Ol�.Gostaria de saber como posso fazer o seguinte:Eu tenho um RadioGroup com 4 Items, certo!Utilizo um ActionList e atribuo a ShorCut := F7Oque quero, � que cada vez que eu pressionar F7 ele altere a ...

Alecsandro Moura · Answer

E ai lucasfss blz!Bom usando uma action list eu n�o sei como te ajudar, mas d� para fazer da seguinte maneira:[code:1:511ff6d7ae]  public    { Public declarations }  end;var  Form1: TForm1;//Aqui vc coloca uma varialvel para controlar a entrada do focu no componente  controle :Integer;implementation[/code:1:511ff6d7ae]Depois no OnEnter do RadioGroup coloca[code:1:511ff6d7ae]begin  controle := 1;end;[/code:1:511ff6d7ae]depois no OnExit do RadioGroup[code:1:511ff6d7ae]begin  controle := 0;end;[/code:1:511ff6d7ae]depois mude o keyPreview do form para truee depois no OnKeyDown do form fa�a:[code:1:511ff6d7ae]var  tecla :Integer;begin  if (controle = 1) and(Key = VK_F7) Then    begin      tecla := RadioGroup1.ItemIndex;      RadioGroup1.ItemIndex := tecla + 1;      if tecla = RadioGroup1.Items.Count -1 Then        RadioGroup1.ItemIndex := 0;    end;end;[/code:1:511ff6d7ae] Bom pelo menos dessa maneira d� para fazer o que vc deseja.  :wink: espero ter ajudado  :D...

Marco Salles · Answer

outra maneiraparticularmente gosto de concentrar os meus codigos facilita a manuten��oAdicione um componente TApplicationEvents no Projeto e no seu eventoShortCut escreva..[code:1:5da59f5cf1]procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;  var Handled: Boolean);beginif msg.CharCode = vk_F7 then  with RadioGroup1 do    if itemIndex = componentCount-1 then       itemIndex:=0    else      itemIndex:=itemIndex+1;end;[/code:1:5da59f5cf1]P:S Se n�o quiser disparar o evento OnClick do RadioGroup deve desabilita-lo temporariamente...

Devmedia · Answer

Cara, muito obrigado pela ajuda.
Deu certo.

Fiz algumas modifica��es no codigo.
Porque eu preciso de colocar mudan�as em outros componentes apartir do Item selecionado no meu RadioGroup. Falo no OnClick do RadioGroup.

Segue a modifica��o:

procedure TFormProdutosPesquisa.FormShow(Sender: TObject);
begin
//Ao iniciar o Form, manda o foco para RadioGroupOpcaoProdutosPesquisa
RadioGroupOpcaoProdutosPesquisa.SetFocus;
//Fim do Codigo.
end;

procedure TFormProdutosPesquisa.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var 
  Tecla : Integer;

begin 

  [color=blue]If Key = VK_F7 then
     Begin
        RadioGroupOpcaoProdutosPesquisa.SetFocus;
     end;        [/color]

  If (Controle = 1) and (Key = VK_F7) Then
    begin 
      Tecla := RadioGroupOpcaoProdutosPesquisa.ItemIndex;
      RadioGroupOpcaoProdutosPesquisa.ItemIndex := Tecla + 1;
      If Tecla = RadioGroupOpcaoProdutosPesquisa.Items.Count -1 Then
         RadioGroupOpcaoProdutosPesquisa.ItemIndex := 0;
    end; 
end;

Meu Onclick do RadioGroup:

   If RadioGroupOpcaoProdutosPesquisa.ItemIndex = 0 then
        Begin
           LabelTextoPorOpcaoProdutosPesquisa.Caption := �Digite aqui o NOME a ser pesquisado:�;
           EditDigiteProdutosPesquisa.MaxLength := 30;
           EditDigiteProdutosPesquisa.SetFocus;
        end;
     If RadioGroupOpcaoProdutosPesquisa.ItemIndex = 1 then
        Begin
           LabelTextoPorOpcaoProdutosPesquisa.Caption := �Digite aqui a REFER�NCIA a ser pesquisado:�;
           EditDigiteProdutosPesquisa.MaxLength := 6;
           EditDigiteProdutosPesquisa.SetFocus;
        end;
     If RadioGroupOpcaoProdutosPesquisa.ItemIndex = 2 then
        Begin
           LabelTextoPorOpcaoProdutosPesquisa.Caption := �Digite aqui o C�DIGO SEQU�NCIA a ser pesquisado:�;
           EditDigiteProdutosPesquisa.MaxLength := 6;
           EditDigiteProdutosPesquisa.SetFocus;
        end;
     If RadioGroupOpcaoProdutosPesquisa.ItemIndex = 3 then
        Begin
           LabelTextoPorOpcaoProdutosPesquisa.Caption := �Digite aqui o C�DIGO DE BARRA a ser pesquisado ou utilize a Leitora:�;
           EditDigiteProdutosPesquisa.MaxLength := 13;
           EditDigiteProdutosPesquisa.SetFocus;
        end;

Agora porque fiz isto?
Porque toda vez que teclava F7 ele fazia oque foi prometido, mas n�o retornava o Focu para o RadioGroup. Com isso n�o retornava para alterar o Item desejado.

Muito obrigado pela ajuda.
Att.

Devmedia · Answer

[quote:85425fbeda][color=blue:85425fbeda]If Key = VK_F7 then      Begin         RadioGroupOpcaoProdutosPesquisa.SetFocus;      end;        [/color:85425fbeda] [/quote:85425fbeda]Estes colors foi bug do forum. N�o sei porque n�o saiu azul o texo.Int�....

F�rum RadioGroup, cada vez pressionada tecla altera os items #348051