Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Активизация Tab'a правым кликом

Автор: Limonadni Joe 31.8.2004, 19:01

Как сделать так, чтобы, когда пользователь делает правый клик на TabControl'e, активизировался тот tab, что находится под курсором? Т.е. нужна функция наподобие ItemAtPos у TListView, определяющая какой item находится под курсором.

Автор: Vit 31.8.2004, 19:44

Код

procedure TForm1.TabControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Showmessage(inttostr(Tabcontrol1.IndexOfTabAt(X, Y)));
end;