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

← →
Александр (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);

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

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

Windows.SetFocus(hwndFocus);

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

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