Форум - Ответы     (  К темам )
 ?  MrSergei: StringGrid и скроллинг (16-01-2003 21:08:19)
На форме есть таблица (StringGrid), по размерам она больше формы, поэтому
есть скролбары. Я организовал поиск в таблице по ключевому слову,
при нахождении слова ячейка выделяется, как показать ячейку, если
она не видна (выходит за границу формы), к примеру,
находится в конце таблицы, как программно задействовать
ScrollBar на StringGrid-е?
 Владимир (17-01-2003 09:51:15) http://cbuilder.ru
// заполняем StringGrid чем-либо
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=0; i<StringGrid1->ColCount; i++){
for(int j=0; j<StringGrid1->RowCount; j++){
StringGrid1->Cells[i][j] = IntToStr(i)+IntToStr(j);
}
}
}
//-----------------------------------------------------------------
// осуществляем поиск по Edit1->Text
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i,j;
AnsiString s = Edit1->Text;
for(i=0; i<StringGrid1->ColCount; i++){
for(j=0; j<StringGrid1->RowCount; j++){
if(s == StringGrid1->Cells[i][j]) { // нашли
StringGrid1->SetFocus();
TGridRect myRect;
myRect.Left = i; myRect.Top = j;
myRect.Right = i; myRect.Bottom = j;
// выделяем найденную ячейку
StringGrid1->Selection = myRect;
// вот оно - показываем ячейку - прокручивается ScrollBar если нужно
StringGrid1->LeftCol = i;
StringGrid1->TopRow = j;
return;
}
}
}
}
//---------------------------------------------------------------------------


support@cbuilder.ru