Скачать: CL | DM;

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]

Спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c