Como posso me concentrar automaticamente em um campo de texto usando a GUI Win32 em Perl?

Question

Estou seguindo um online Win32 :: GUI Tutorial Para aprender a adicionar uma GUI ao meu aplicativo PERL. Até agora tudo tem sido bom. Mas estou tendo alguns pequenos problemas irritantes. Então, estou pedindo ajuda aqui novamente.

Um problema é que tenho que clicar no meu mouse no campo de texto antes que eu possa digitar. Eu tentei algo mentir isto:

$Object->AddTextfield(
        -name   => "Birthday",
        -left   => 75,
        -top    => 50,
        -width  => 180,
        -height => 20,
        -number => 1,
        -prompt => "Input birthday:",       

    );


$Object->Birthday->GetFocus();
$Object->Birthday->Activate();

Mas não funciona. Alguém pode ajudar gentilmente? Desde já, obrigado.

Answer 1

e quanto a $Object->Birthday->SetFocus()?

Answer 2

Aniversário-> setFocus () funcionará bem ....

podes tentar