Início / coding / Perguntas / 77484028
Accepted
gene b.
Asked: 2023-11-15 05:46:26 +0800 CST

Delphi: Desfocar o controle TDateTimePicker

  • 772

Tenho os seguintes problemas com o TDateTimePickercontrole:

(1) Quando o formulário aparece, ele é automaticamente focado. É meu primeiro controle no formulário, mas tudo precisa ser desfocado na inicialização. Eu tentei o seguinte:

procedure TfrmMain.FormShow(Sender: TObject);
begin
  // ...
  // Defocus everything
   Self.ActiveControl := nil; // Does not work
end;

(2) Além disso, existe um TSpeedButtonque deve desfocar este controle, mas pressioná-lo não remove o foco do TDateTimePicker. (Outros controles, como o normal, TButtono removem.)

insira a descrição da imagem aqui

delphi

2 respostas

  1. Você pode definir sua TabStoppropriedade como falsa para evitar que obtenha o foco inicial.

    Observe que isso também impedirá que o usuário use a TABtecla para mudar o foco para TDateTimePickertambém.

    A razão pela qual pressionar a TSpeedButtonnão muda o foco de TDateTimePickeré o fato de que TSpeedButtonnão é um controle focável.

    • 2
  2. Best Answer

    Quando o formulário aparece, ele é automaticamente focado. É meu primeiro controle no formulário, mas tudo precisa ser desfocado na inicialização.

    Esse é um requisito muito estranho. Minha intuição é que seu design está abaixo do ideal. Você não deve lutar contra o sistema operacional e suas convenções – você deve tentar aderir às normas que os usuários esperam da plataforma.

    Além disso, existe um TSpeedButtonque deve desfocar esse controle, mas pressioná-lo não remove o foco do arquivo TDateTimePicker.

    Isso é esperado, pois TSpeedButtoné um controle gráfico e não um controle de janela. Conseqüentemente, um botão de velocidade não é uma janela (como um botão normal, caixa de edição, botão de opção, caixa de seleção, caixa de combinação, caixa de listagem, visualização de lista, etc.).

    Em particular, isso significa que os usuários não podem mover-se para o seu botão usando o teclado (Tab), portanto, os botões de velocidade tornam a sua GUI menos acessível e menos conveniente de usar.

    Nunca uso botões de velocidade por esse motivo.

    tudo precisa ser desfocado na inicialização

    Mas se você insistir totalmente, poderá desfocar tudo desde o início.

    Você só precisa adicionar um OnActivatemanipulador que defina o formulário ActiveControlcomo nil:

    procedure TForm1.FormActivate(Sender: TObject);
begin
  ActiveControl := nil
end;
    • 2

relate perguntas