TUpDown problem z focusem

[Corvis]

Witam,

Mam na formie TUpDown i w jego metodzie dodałem kod:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::UpDown1ChangingEx(TObject *Sender, bool &AllowChange, short NewValue, TUpDownDirection Direction) {
    MessageBoxA(this->Handle,"aaa","bbb",MB_OK|MB_ICONWARNING);
}

Problem polega na tym, że nie mam pojęcia jak zdjąć focusa z UpDown po wywołaniu tego kodu. Zostaje on i ruszanie myszką powoduje zmiany przycisków UpDown. Po naciśnięciu myszki wywołuje mi się znowu kod i aplikacja jest powieszona . Przestawiałem focusa na inne kontrolki i fakt że karetka się przestawia np na edita ale zaznaczenie UpDown zostaje nadal.

Wie ktoś może o co tu chodzi ??

[Cyfrowy Baron]

Jedyny sposób na zdjęcie focus-a to przeniesienie go na inny obiekt, coś w tym stylu:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::UpDown1ChangingEx(TObject *Sender, bool &AllowChange, short NewValue, TUpDownDirection Direction) {
   Application->MessageBox( L"aaa", L"bbb", MB_OK | MB_ICONWARNING);
   Button1->SetFocu(); // przeniesienie focusa na obiekt Button1
}

Focus zawsze znajduje się na jakimś obiekcie w aktywnym oknie.

[Corvis]

No i tak dokładnie robiłem. Ale zauważ, że focus sie zmienia ale zaznaczenie komponentu TUpDown zostaje na nim i nie ma ma możliwości go zdjąć

[Cyfrowy Baron]

To ma związek z oknem komunikatu, bez niego działa prawidłowo. Nie widzę sposobu na obejście tego problemu. Nie wywołuj komunikatu w tym zdarzeniu.

[Corvis]

No dokładnie tak. Jednak coś pomyślę, może da się to obejść.

[Corvis]

Zrobienie tego tak daje rozwiązanie problemu. Timer na starcie wyłączony, interval na 50 i kod:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//---------------------------------------------------------------------------
void __fastcall TForm1::UpDown1ChangingEx(TObject *Sender, bool &AllowChange, short NewValue, TUpDownDirection Direction) {
    Edit1->SetFocus();
    Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender) {
     Timer1->Enabled = false;
     MessageBoxA(this->Handle,"aaa","bbb",MB_OK|MB_ICONWARNING);
}
//---------------------------------------------------------------------------
 

[Cyfrowy Baron]

Owszem, to rozwiązuje problem, ale czy angażowanie zegara jest warte tutaj tego komunikatu? Czy ten komunikat w zdarzeniu jest potrzebny, czy nie lepiej wprowadzić jakieś ograniczenie zamiast komunikatu?

[Corvis]

Ograniczenia są. Ale i komunikat jest potrzebny aby poinformować użytkownika o tym dlaczego nie może wejść poniżej danej wartości albo powyżej. Można to oczywiście zrobić nie w formie MessageBoxa a memo na dole programu gdzie będą informacje.

[Cyfrowy Baron]

Można to oczywiście zrobić nie w formie MessageBoxa a memo na dole programu gdzie będą informacje.

Lepszy jest już chyba StatusBar. Co do tych komunikatów to z własnego doświadczenia powinieneś wiedzieć, że jeżeli pojawiają się zbyt często to stają się nad wyraz irytujące.