Application.MessageBox

← →
DimonA (2003-09-26 12:01) [0]

Есть форма, на ней два Edit"а. По выходу из первого ставлю обработчик

procedure TForm1.Edit1Exit(Sender: TObject);
begin
Application.MessageBox("text", "test", MB_YESNO+MB_ICONWARNING+MB_DEFBUTTON1)
end;

После нажатия на кнопке сообщения, вроде фокус на втором сообщении, но курсора не видно и текст в не выделенный. Если нажимаешь BackSpace, то тект удаляется в эдите.
Вопрос: Как сделать чтобы курсор всетаки был виден??????

← →
m_kus (2003-09-26 14:08) [1]

procedure TForm1.Edit1Exit(Sender: TObject);
begin
Application.MessageBox("text", "test", MB_YESNO+MB_ICONWARNING+MB_DEFBUTTON1);
PostMessage(edit2.Handle,WM_SETFOCUS,0,0);
end;

← →
DimonA (2003-09-26 14:56) [2]

Спасибо

Application.MessageBox Найти похожие ветки