Дежурный стрелочник
Группа: Участник
Сообщений: 56
|
Необходимо из DBGrid перетащить данные в StringGrid.
DragMode = dmAutomatic в данном случае не подходит (но работает), потому что программа не дает выбрать нужную запись в DBGrid, а сразу стартует Drag. Вручную стартовать не получается. В приведенном коде не срабатывает BeginGrag (почему не знаю). Подскажите как решить данную проблему.
| CODE |
void __fastcall TStellajForm::SpDet_GridMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbLeft)
SpDet_Grid->BeginDrag(false, 5);
}
//---------------------------------------------------------------------------
void __fastcall TStellajForm::Stellaj_StrGridDragOver(TObject *Sender,
TObject *Source, int X, int Y, TDragState State, bool &Accept)
{
Accept = true;
}
//---------------------------------------------------------------------------
void __fastcall TStellajForm::Stellaj_StrGridDragDrop(TObject *Sender,
TObject *Source, int X, int Y)
{
TGridCoord gc;
gc=this->Stellaj_StrGrid->MouseCoord(X,Y);
if (IBDM->GetDet_Q->State == dsBrowse)
IBDM->GetDet_Q->Edit();
IBDM->GetDet_QOPSTELLAJ->Value = this->Stellaj_StrGrid->Cells[gc.X][gc.Y];
IBDM->GetDet_Q->Post();
}
|
Отредактировано Anry — 11/07/2003, 16:33
|
