Вопрос : Делфи Pagecontrol - каждое Tabsheet имеет свой собственный всплывающий меню

Я имею pagecontrol и хотел был бы иметь всплывающий меню «близко все другие платы». Tabsheets создаются динамический, во время runtime.
Wolrks отлично, но я должен обусловить что плата имеет право - щелкните….?
Or там любой шанс активировать эту плату перед обрабатывать право -

thanx щелчка. для вашего help

class=

Ответ : Делфи Pagecontrol - каждое Tabsheet имеет свой собственный всплывающий меню

Hi sb67pro. Используйте функцию TabRect как это:

процедура TForm1.PopupMenu1Popup (прислужник: TObject);
var
  CurPos: TPoint;
  R: TRect;
  iий: Интежер;
начните
  если GetCursorPos (CurPos) после этого
  начните
    CurPos: = PageControl1.ScreenToClient (CurPos);
    для I: = 0 к PageControl1.PageCount-1 делает
    начните
      R: = PageControl1.TabRect (I);
      если (>= R.Left CurPos.X) и (CurPos.X <>= R.Top) и, то (титр <>        CurPos.Y: = «щелкнул дальше платой страницы» + IntToStr (I);
    конец;
  конец;
конец;