Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

Мастера, подскажите   Найти похожие ветки 

 
boolean   (2003-01-16 17:59) [0]

Есть ListView в режиме Report. Ткнул в ячейку. Как узнать номер столбца?


 
MBo ©   (2003-01-16 18:41) [1]

пробеги по columns[].width


 
boolean   (2003-01-19 10:26) [2]

Так не получится. Когда колонок много, то сделав гор. прокрутку, колонки будут отображаться не с первой, а например, с 3.


 
boolean   (2003-01-20 12:29) [3]

Короче, все таки сделал. Написана Builder, но кому надо перепишут.

В классе формы

private:
....
void __fastcall __ListView(TMessage& Msg);
....

Сама реализация

void __fastcall TFormMain::__ListView(TMessage& Msg)
{
//---Процедура отлавливания DblClick на ListView и определение номера колонки
if (Msg.Msg == WM_NOTIFY)
{
NM_LISTVIEW* lplv = (NM_LISTVIEW*)Msg.LParam;

if((HWND)lpLV->Handle == lplv->hdr.hwndFrom)
{
if(lplv->hdr.code == NM_DBLCLK)
{
ShowMessage("Колонка " + IntToStr(lplv->iSubItem));
}
}
}

WndProc(Msg);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::FormCreate(TObject *Sender)
{
WindowProc = __ListView;
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::FormDestroy(TObject *Sender)
{
WindowProc = WndProc;
}
//---------------------------------------------------------------------------







Страницы: 1 вся ветка

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
3-86701
FROM_X
2003-01-09 13:16
2003.01.27
Ну я устал сам себе рейтинг повышать чтобы привлечь внимание


3-86667
OlegKrt
2003-01-06 08:22
2003.01.27
Ошибка в BLOB Paradox


6-87011
sen
2002-11-27 16:01
2003.01.27
Сокеты в Делфи


14-87028
Чайник
2003-01-10 15:22
2003.01.27
компоненты в стиле Windows XP


1-86815
jen_bond
2003-01-18 17:02
2003.01.27
Распознование номера