SetFocus

← →
Far (2003-06-09 19:47) [0]

Подскажите самый красивый и простой способ перехода фокуса вперед и назад по нажатию на стрелки "вверх" и "вниз"

← →
clickmaker © (2003-06-09 19:48) [1]

SetFocus(GetWindow(Handle, GW_HWNDPREV));
SetFocus(GetWindow(Handle, GW_HWNDNEXT));

← →
Song © (2003-06-09 23:21) [2]

SelectNext()

← →
Far (2003-06-10 22:51) [3]

to clickmaker ©
Чего-то ругается на такие конструкции
Пишет "Too many actual parameters"
Помогите неучу...

← →
Song © (2003-06-10 22:54) [4]

Windows.SetFocus..

← →
Far (2003-06-10 23:02) [5]

А теперь никакой реакции на нажатие стрелок
при keyPreview:=true для формы

procedure TfrmMoney.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_UP then begin
Windows.SetFocus(GetWindow(Handle, GW_HWNDPREV));
end;
if Key = VK_DOWN then begin
Windows.SetFocus(GetWindow(Handle, GW_HWNDNEXT));
end;
end;

← →
Song © (2003-06-10 23:07) [6]

Сделай как я сказал в Song © (09.06.03 23:21) и не парься.

← →
Far (2003-06-10 23:16) [7]

to Song ©
Так с помощью SelectNext() я могу выбрать только следующий объект? А как быть с предыдущим обеъктом?

procedure SelectNext(CurControl: TWinControl; GoForward, CheckTabStop: Boolean);

If GoForward is False, FindNextControl searches backward through the controls.

← →
Far (2003-06-10 23:29) [9]

Спасибо! Все заработало. Постараюсь больше не тупить...

Он в любом случае будет следующим просто смотря откуда идёт обход :)

SetFocus Найти похожие ветки