Мнр нравится, когда клик по статус бару позволяет переключать контекст или вызывать меню... Для тех кому /то тоже нравится привожу код.| Код | //--------------------------------------------------------------------------- void __fastcall TForm1::StatusBar1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { int i = 0, x = 0; while (i < StatusBar1->Panels->Count - 1) { x += StatusBar1->Panels->Items[i]->Width; if (x > X) break; i++; } ShowMessage(IntToStr(i)); } //---------------------------------------------------------------------------
|
Просто очень не хотелось бы использовать MouseDown, а на OnClick не знаю как... |