MessageBox - мышь и клава
Проблема:
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,TShiftState Shift)
{
if(Key==VK_RETURN)
{
if(Edit1->Text=="")
{
Application->MessageBox("Пусто!","Ошибка",MB_OK);
Edit1->SetFocus();
}
}
Если на MessageBox кликнуть мышкой, то все нормально, а если на клаве Enter-ом, то опять выскакивает MessageBox, и т.д. :-(
Что делать, чтобы после Enter-а фокус оставался на Edit1?
:???:
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,TShiftState Shift)
{
if(Key==VK_RETURN)
{
if(Edit1->Text=="")
{
Application->MessageBox("Пусто!","Ошибка",MB_OK);
Edit1->SetFocus();
}
}
Если на MessageBox кликнуть мышкой, то все нормально, а если на клаве Enter-ом, то опять выскакивает MessageBox, и т.д. :-(
Что делать, чтобы после Enter-а фокус оставался на Edit1?
:???:
Цитата:
Originally posted by Tristan
Проблема:
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,TShiftState Shift)
{
if(Key==VK_RETURN)
{
if(Edit1->Text=="")
{
Application->MessageBox("Пусто!","Ошибка",MB_OK);
Edit1->SetFocus();
}
}
Если на MessageBox кликнуть мышкой, то все нормально, а если на клаве Enter-ом, то опять выскакивает MessageBox, и т.д. :-(
Что делать, чтобы после Enter-а фокус оставался на Edit1?
:???:
Проблема:
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,TShiftState Shift)
{
if(Key==VK_RETURN)
{
if(Edit1->Text=="")
{
Application->MessageBox("Пусто!","Ошибка",MB_OK);
Edit1->SetFocus();
}
}
Если на MessageBox кликнуть мышкой, то все нормально, а если на клаве Enter-ом, то опять выскакивает MessageBox, и т.д. :-(
Что делать, чтобы после Enter-а фокус оставался на Edit1?
:???:
После MessageBoxa поставь
::GetMessage(&Msg,Edit1->Handle,0,0); где Msg - MSG