1,178
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TF_itlevel::ADO_levelAfterOpen(TDataSet *DataSet)
{
ADO_level->First();
DBGrid2->Columns->Items[2]->PickList->Clear();
while(!ADO_level->Eof)
{
DBGrid2->Columns->Items[2]->PickList->Add(ADO_level->FieldValues["fchrlevel"]);
ADO_level->Next();
}
ADO_level->First();
}
//---------------------------------------------------------------------------
void __fastcall TF_itlevel::NewProc(TMessage & msg)
{
if (msg.Msg == WM_MOUSEWHEEL)
{
int z = GET_WHEEL_DELTA_WPARAM(msg.WParam);
msg.Msg = WM_VSCROLL;
if (z > 0)
msg.WParam = SB_LINEUP;
else
msg.WParam = SB_LINEDOWN;
}
OldProc(msg);
}
void __fastcall TF_itlevel::FormCreate(TObject *Sender)
{
OldProc = DBGrid2->WindowProc;
DBGrid2->WindowProc = NewProc;
}