StringGrid - выделение нескольких ячеек

[6AZblJlb]

всем привет...может кто подскажет что то не выходит...хочу сделать так чтобы когда нажал мышкой на ячейку и не отпуская ее тащишь куда нить вверх вниз влево вправо(не по диагонали) выделялись ячейки....типо змейки....код правда в си билдере но разницы принципиальной не вижу

int Row_down,Col_down,Row_move,Col_move;
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{

if((ACol==Col_down) && (ARow==Row_down) &&(ACol>0) &&(ARow>0))
{
StringGrid1->Canvas->Brush->Color=clRed;
StringGrid1->Canvas->FillRect(Rect);
}
}
//---------------------------------------------------------------------------
bool flag;
void __fastcall TForm1::StringGrid1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
if(flag==1)
   {
   StringGrid1->MouseToCell(X,Y,Col_down,Row_down);
   Label5->Caption=IntToStr(Col_down);
   Label6->Caption=IntToStr(Row_down);
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::StringGrid1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
StringGrid1->MouseToCell(X,Y,Col_down,Row_down);
flag=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
flag=0;
}

может кто подскажет

[mihali4]

Подсказка :
StringGrid1MouseDown
StringGrid1MouseMove
StringGrid1MouseUp
StringGrid1.MouseToCell(X, Y, Column, Row);
и, конечно же, практически готовый пример MouseToCell example в хэлпе...

[xrob]

а вот про такую штуку мы знаем?
лежит в инспекторе свойств компонента.

или так не канает?

[6AZblJlb]

спасибо разобрался...да в хелп забыл глянуть

22:52

Сообщение от xrob

а вот про такую штуку мы знаем?
лежит в инспекторе свойств компонента.

или так не канает?

конечно знаем)))))