Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Александр © (2007-10-10 11:34:00)
Ситуация такая:
На форме имеется компонент WEbBrowser в него загружена страница, рядом находися кнопка код которой - это обновление страницы WebBrowser.Refresh.

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

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

clickmaker (2007-10-10 13:51:00) [1]

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

Windows.SetFocus(hwndFocus);

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

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

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

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

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

Александр (2007-10-10 12:07:00) [3]
> Leonid Troyanovsky
>TSpeedButton ?

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

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

clickmaker (2007-10-10 12:02:00) [4]
hwndFocus := GetFocus();
try
// что-то делаем
finally
SetFocus(hwndFocus);
end;

Leonid Troyanovsky (2007-10-10 11:41:00) [5]

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

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

TSpeedButton ?

--
Regards, LVT.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »