Комментарии: Ribbon Controls в RAD Studio 2009-2010 и их глюки.

Автор: Worthis

Worthis — Tue, 11 Oct 2011 15:23:06 +0000

Спасибо) Решил проблему с мышью, создал копию юнита Ribbon.pas в папке проекта и уже в него внес необходимые изменения) В функции TCustomRibbon.DoMouseWheelDown и TCustomRibbon.DoMouseWheelUp добавил вызов процедуры DoTabChange. Может и получилось несколько топорно, но работает :D

Автор: Vlad

Vlad — Tue, 11 Oct 2011 15:06:03 +0000

Worthis, с колесом мыши ничего не сделать, к сожалению, если не копаться во внутренностях TRibbon и не переопределять обработчики, а это по сути писать новый компонент-наследник — гиммор я вам скажу ещё тот =).

Автор: Worthis

Worthis — Tue, 11 Oct 2011 15:01:20 +0000

Точно! Не обратил внимания на параметры) Спасибо за оперативный ответ.
Жалко, что процедура Ribbon1TabChange не срабатывает при переключении вкладок колесом мыши :(, можно это как-нибудь исправить или вовсе отключить переключение колесом?

Автор: Vlad

Vlad — Tue, 11 Oct 2011 14:42:52 +0000

Worthis, а так не пробовали?
procedure TForm1.Ribbon1TabChange(Sender: TObject; const NewIndex,
OldIndex: Integer; var AllowChange: Boolean);
begin
Label1.Caption:=IntToStr(NewIndex);
end;
Думаю, что поможет

Автор: Worthis

Worthis — Tue, 11 Oct 2011 12:43:00 +0000

может я что-то не так делаю, но вот такая конструкция выдает совершенно случайный TabIndex. Есть ли какой другой рабочий способ получить индекс/заголовок текущей вкладки риббона или ссылку на нее?

procedure TForm1.Ribbon1TabChange(Sender: TObject; const NewIndex,

  OldIndex: Integer; var AllowChange: Boolean);

begin

  Label1.Caption:=IntToStr(Ribbon1.TabIndex);

end;