PopupMenu и PageControl

[2fasti]

Здравствуйте. Я написал (или точнее писал, но не дописал) блокнот с поддержкой табов (нечто типа notepad++) и столкнулся с проблемой, когда необходимо, чтобы меню PopupMenu вызывалось только над самими вкладками ("шапками") табов и при этом щёлчёк над вкладкой делал её активной (точно так же как в notepad++). Очень большая просьба помочь советом. 

UPD: вот исходничек примера с табами.
http://narod.ru/disk/5034343000/notepad_tabs.zip.html (7кб)

[DanUnited]

блокнот с поддержкой табов (нечто типа notepad++)

а вот на этом поподробней....
Так что там за блокнотик и что он умеет??

огда необходимо, чтобы меню PopupMenu вызывалось только над самими вкладками ("шапками") табов

отчерти математически координаты(квадратика), где у тебя находится табы, а в событии onKeyDown PageControl пропиши что-нибудь:
TPoint cPt;
GetCursorPos(&cPt);
if(//тут координаты квадратика,т.е. если курсор находится в этом квадратике..)
{
if(Button==mbRight)
{
//-------------------------------
Tab1->PopupMenu->Popup(int(cPt.x),int(cPt.y));
}
}
 

[2fasti]

вот исходники http://narod.ru/disk/5036914000/NotePad--.zip.html

багов невпроворот. А это курсовая работа, сдать нужно 22 Jan =)

Я пока не пробывал, но тут проблема. Дело в том, что закладка (шапка её) размера любого может быть, зависит от того, что на ней написано. =(

[DanUnited]

Я пока не пробывал, но тут проблема. Дело в том, что закладка (шапка её) размера любого может быть, зависит от того, что на ней написано. =(

ну это вроде легко тоже высчитывается...
TPageControl *Pag = static_cast (Control);
TCanvas *Can = Pag->Canvas;
Can->TextHeight(Pag->Pages[0]->Caption);//это высота первой закладки, например....
Can->TextWidth(Pag->Pages[0]->Caption);//это то же. но с высотой..
 

[DanUnited]

вот исходники http://narod.ru/disk/5036914000/NotePad--.zip.html

круто.... замудрил конечно....
для курсовой работы слабовастенький очень,так скажем, редакторик....
У тебя там в курсовой разрешается сторонние компоненты использовать, а то ....

[2fasti]

Да, курсовик конечно не мегосуперпупер, но я по специальности и не программист)

[DanUnited]

Да, курсовик конечно не мегосуперпупер, но я по специальности и не программист)

ну я тоже по специальности не программист, да и ваще.... тут меньше половины на форума и того меньше по специальности "программист", но как говорит Ленин Ильич: "Учиться, Учиться и ещё раз учиться". Если хочешь знать, я просто изучаю C++Builder уже как год и всё это время пишу только текстовые редакторы, поэтому и заинтересовался...

[2fasti]

Что-то не выходит у меня. Вот пример кода для notepad_tabs (выкладывал выше)
Добавил PopupMenu1, с одним пунктом - закрыть вкладку

Код:

int i = PageControl1->ActivePageIndex;
if (i > -1) {
delete PageControl1->Pages[i]; }

код для PageControl1MouseDown

Код:

void __fastcall TForm1::PageControl1MouseDown(TObject *Sender,
  TMouseButton Button, TShiftState Shift, int X, int Y)
{
TPoint cPt;
GetCursorPos(&cPt);
if(425,25)
{
if(Button==mbRight)
{
//-------------------------------
PageControl1->PopupMenu->Popup(int(cPt.x),int(cPt.y));
}
}
}

и ничего не изменилось. Можешь на том примере показать как работает. Пожалуйста.

[DanUnited]

if(425,25)

так ни вкоем случае нельзя писать, более того, это даже не два числа, а одно, с двумя знаками после запятой и получается в итогк бред..
Попробуй тк:(тебеж надо координаты курсора)
if((int(cPt.x)>425)&&(int(cPt.x)425)&&(int(cPt.y) {
}
это к примеру.... если координата x и y...
ну сам разберёшься.... тут ты должен 4 цифры подставлять... свои подставь

[2fasti]

Делаю так

Код:

{
TPoint cPt;
GetCursorPos(&cPt);
if((int(cPt.x)>0)&&(int(cPt.x)0)&&(int(cPt.y) {
if(Button==mbRight)
{
//-------------------------------
PageControl1->PopupMenu->Popup(int(cPt.x),int(cPt.y));

}
}
}

Попап всплывать опять по всей форме, в свойствах AutoPopup поставил в false - перестал вообще появляться 

[DanUnited]

Вот, держи тоже поэкспериментировал и в итоге пришёл к одной х..., что мы н емного перемудрили.
Вот работающий код:

Код:

TPoint cPt;
GetCursorPos(&cPt);
if(Button==mbRight)
{
//-------------------------------
PageControl1->PopupMenu = PopupMenu1;
PageControl1->PopupMenu->Popup(int(cPt.x),int(cPt.y));
}
PageControl1->PopupMenu = PopupMenu2;

Гдe PopupMenu2 - пустой попьюп.
Всё работает, когда вы в квадратике, где за головки. Тут снова минус: возникает, над какой бы шапкой вы не были..
 
-------------
Да...и ещё: оставте свойство PopupMenu пустым у компонента..

[2fasti]

О, спасибо большое  То что нужно