TUpdown - Focus - błąd kontrolki ??

[Corvis]

Witam,

Taka ciekawostka mi wyszła. Mam na formie TUpdDown i jakiś Edit w żaden sposób kontroli nie są ze połączone. Zrobiłem sobie takie zdarzenie:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::UpDown1Click(TObject *Sender, TUDBtnType Button)
 {
        ShowMessage("aaa");
        Edit1->SetFocus();
}

No i według kodu po kliknięciu w TUpDown powinien się pokazać komunikat i focus zostać przerzucony na edit. No i tak też się dzieje, ale UpDown cały czas dalej jest zaznaczony i teraz jak kliknę gdziekolwiek w formę to cały czas mi wywala komunikat. Wydaje mi się, że jest to błąd kontroli TUpDown - nie zdejmuje z siebie focusa. Nie działa żadna znana mi metoda:

Kod: Zaznacz cały

DefocusControl()

, robienie TUpDown Enabled = false potem true. No w żaden sposób nie umiem tego obejść.

Spotkał się ktoś z czymś takim kiedyś ??

Pozdrawiam,

[Mironas]

Użyj TTimer-a. Enabled na false, Interval na 1. A potem:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::UpDown1Click(TObject *Sender, TUDBtnType Button)
{
  Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Timer1->Enabled = false;
  ShowMessage("aaa");
  Edit1->SetFocus();
}

[Corvis]

Dobre

Jednak to jest błąd kontrolek VCL

[Cyfrowy Baron]

Umieść ten kod w zdarzeniu OnMOuseUp kontrolki TUpDown, a problem ustąpi.