Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problemas con foco (https://www.clubdelphi.com/foros/showthread.php?t=89629)

oscarac 30-12-2015 06:29:30

Problemas con foco
 
quizá sea una tonteria, pero no encuentro solución

tengo un TComboBox, un TRadioGroup y un Edit, en ese orden

el problema es que cuando salgo del TcomboBox con Enter, el "foco" desaparece en el radiogroup, presiono enter una vez mas y el foco recien aparece en el radiogroup

loco no?

no creo que sea normal quiza algo no estoy contemplando?
Código Delphi [-]
FormKeyPress
begin
  if Key = #27 then
  begin
    key := #0;
    close;
  end;

  if key = #13 then
  begin
    Perform(WM_NEXTDLGCTL,0,0);
    key := #0;
  end;
end;

KeyPreview = true

ecfisa 30-12-2015 21:24:53

Hola Oscar.

No sé si es el efecto que estas buscando, pero fijate si así te sirve:
Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
  rg: TRadioGroup;
begin
  if Key = #27 then
  begin
    Key := #0;
    Close;
  end;

  if Key = #13 then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
    if ActiveControl is TRadioGroup then
    begin
      rg := RadioGroup1;
      if rg.ItemIndex = - 1 then rg.ItemIndex := 0;
      TRadioButton(rg.Controls[rg.ItemIndex]).SetFocus;
    end;
    Key := #0;
  end;
end;

Saludos :)


La franja horaria es GMT +2. Ahora son las 03:05:31.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi