TButtonGroup как программно отжать кнопку

@Olix · Регистрация: 02.04.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте. Столкнулась с такой проблемой. Есть форма. На ней 3 компонента TButtonGroup TPageControlб tbutton. На TButtonGroup 5 кнопок, на TPageControl 4 закладки. ; кнопки дают переход по 4 закладкамTPageControl. 5 кнопка вызывает форму. Мне необходимо следующее, при нажатии на 5 кнопку вызвать окно,закрыть его и фокус вернуть на ту кнопку, которая была нажата до 5. например была нажата 1,а потом нажали 5. появилась форма,закрылась и фокус(т.е. эффект нажатой клавиши) перешел снова на 1 кнопку.

Написала функцию, которая ставит фокус

Delphi

procedure TForm4.SetFocusNavBar(Index:Integer);
var
  r:trect;
begin
  NavBar.ItemIndex := Index;//сделали нажатой нужную кнопку
  r := NavBar.GetButtonRect(Index);//показывает пунктирный квадратик
  NavBar.SetBounds(r.Left,r.Top,NavBar.Width,NavBar.ButtonHeight);
  NavBar.SetFocus;
end;

Так вот это работает, если я это вызываю при нажатии на какую нить кнопку простую (TButton). в событии items (TButtonGroup ) onClick это не срабатывает. Т.е. при нажатии на 5 кнопку, вижу что выделена та которая была нажата до нее,появляется окно, закрывается окно и фокус переходит на 5 кнопку! а надо чтоб остался там, где был до появления формы(((

Вот
1.png картинка. так выглядит приложение
2.png решили нажать на кнопку 5, появилось окно, при этом кнопка 1 выделена
3.png окно закрылось и фокус перешел на кнопку 5, хотя в обработчике стоит вызов функции SetFocusNavBar(0)
4.png тут вызываем событие клика кнопки простой.в ней стоит SetFocusNavBar(0) и оно срабатывает (1.png)
Не могу понять где отловить событие того, что фокус все равно передается на 5 кнопку,а не туда, куда я указала. или как сделать по другому.
Спасибо.

@Olix · 12.03.2012, 09:14 **[ТС]**

картинки

@Olix · 12.03.2012, 10:07 **[ТС]**

Нашла одно пока решение:
В событии кнопки 5 (ButtonGroup1Items4Click(Sender: TObject)

запускаю таймер. а в нем я выполняю функцию по изменению фокуса. Может глупо и просто. Но это единственное что работает сейчас и ничего больше не приходит на ум. Если у кого-то появятся идеи, буду рада их услышать.

@Olix 6 / 6 / 2 Регистрация: 02.04.2009 Сообщений: 46
	12.03.2012, 09:14 [ТС]	2
	картинки Миниатюры 0

@Olix 6 / 6 / 2 Регистрация: 02.04.2009 Сообщений: 46
	12.03.2012, 10:07 [ТС]	3
	Нашла одно пока решение: В событии кнопки 5 (ButtonGroup1Items4Click(Sender: TObject) запускаю таймер. а в нем я выполняю функцию по изменению фокуса. Может глупо и просто. Но это единственное что работает сейчас и ничего больше не приходит на ум. Если у кого-то появятся идеи, буду рада их услышать. 0