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

Убегающий курсор... (необходима помощь в решении проблемы)   Найти похожие ветки 

← →
Александр   (2007-10-10 11:34) [0]

Ситуация такая:
На форме имеется компонент WEbBrowser в него загружена страница, рядом находися кнопка код которой  - это обновление страницы WebBrowser.Refresh.

Так же на форме находятся различные текстовые компоненты TEdit, TMemo и т.п.

Так вот, при нажатии на кнопку обновления броузера, курсор сбегает с текстовых полей (фокус переводится на компоент броузера), а нужно чтобы он оставался там где находился до нажатия обновления. Помогите, пожалуйста.

---

← →
Leonid Troyanovsky ©   (2007-10-10 11:41) [1]

> Александр   (10.10.07 11:34)  

>  рядом находися кнопка код которой

TSpeedButton ?

--
Regards, LVT.

---

← →
clickmaker ©   (2007-10-10 12:02) [2]

hwndFocus := GetFocus();
try
 // что-то делаем
finally
 SetFocus(hwndFocus);
end;

---

← →
Александр   (2007-10-10 12:07) [3]

> Leonid Troyanovsky
>TSpeedButton ?

не имеет значения, описал общую проблему, кнопки и такие и просто, TButton

> clickmaker
попробую, спасибо

---

← →
Александр   (2007-10-10 13:39) [4]

> clickmaker
Компилятор ругается на SetFocus(hwndFocus); пишит что много параметров

кстати, вот нашел код как принудильно передать фокус

with WebBrowser do
if Document <> nil then
 with Application as IOleobject do
    DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser, 0, Handle, GetClientRect);

а может кто посоветует как переделать, чтобы запрещать передавать фокус

---

← →
clickmaker ©   (2007-10-10 13:51) [5]

> [4] Александр   (10.10.07 13:39)
> > clickmaker
> Компилятор ругается на SetFocus(hwndFocus); пишит что много
> параметров

Windows.SetFocus(hwndFocus);

либо
var ctlFocus: TWinControl;
ctlFocus := ActiveControl;
...
FocusControl(ctlFocus);

---

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

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



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