Как узнать позицию курсора мышки в TDBGrid?

Форум — Ответы ( К темам )

? Владимир: Как узнать позицию курсора мышки в TDBGrid? (03-02-2003 13:46:29)
Подскажите пожайлуста!
В TDBGrid при нажатии на правую кнопку мышки появляется PopUp меню.
Как узнать в какой строке/колонке было нажатие?
А как в TDBGrid перехватить нажатие правой кнопки мышки?
Владимир (03-02-2003 20:33:57)

Можете использовать событие onPopup меню для перехвата.
И в нем определить что Вам надо

void __fastcall TForm1::PopupMenu1Popup(TObject *Sender)
{
AnsiString RecNo = IntToStr(Table1->RecNo);
AnsiString FName = DBGrid1->Columns->Grid->SelectedField->FieldName;
AnsiString FColNo = DBGrid1->Columns->Grid->SelectedField->FieldNo;
AnsiString FField = DBGrid1->Columns->Grid->SelectedField->Value;
ShowMessage(RecNo+":"+FName+":"+FColNo+":"+FField);
}

Владимир (04-02-2003 15:37:31)

Спасибо!

?	Владимир: Как узнать позицию курсора мышки в TDBGrid? (03-02-2003 13:46:29)
Подскажите пожайлуста! В TDBGrid при нажатии на правую кнопку мышки появляется PopUp меню. Как узнать в какой строке/колонке было нажатие? А как в TDBGrid перехватить нажатие правой кнопки мышки?
Владимир (03-02-2003 20:33:57)
Можете использовать событие onPopup меню для перехвата. И в нем определить что Вам надо void __fastcall TForm1::PopupMenu1Popup(TObject *Sender) { AnsiString RecNo = IntToStr(Table1->RecNo); AnsiString FName = DBGrid1->Columns->Grid->SelectedField->FieldName; AnsiString FColNo = DBGrid1->Columns->Grid->SelectedField->FieldNo; AnsiString FField = DBGrid1->Columns->Grid->SelectedField->Value; ShowMessage(RecNo+":"+FName+":"+FColNo+":"+FField); }
Владимир (04-02-2003 15:37:31)
Спасибо!