Показать сообщение отдельно

  #5  
Старый 02.12.2009, 14:59
StealthMaster
Познающий
Регистрация: 03.12.2008
Сообщений: 56
Провел на форуме:
140714

Репутация: 29
Отправить сообщение для StealthMaster с помощью ICQ
По умолчанию

Цитата:
Сообщение от 0ldbi4  
Здрасть, забыл какое событие stringrid'а возвращает выделенную ячейку??
У StringGrid'a есть свойство Selection, там хранится информация о выделенном диапозоне: номера левого и правого столбцов, а также верхней и нижней строки.

Если выделена 1 ячейка, то значения StringGrid1.Selection.Left и StringGrid1.Selection.Right совпадают.
Аналогично с StringGrid1.Selection.Top и StringGrid1.Selection.Bottom.

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  // с учетом того, что в Cells первый индекс закреплен за столбцом
  j := StringGrid1.Selection.Left;
  i := StringGrid1.Selection.Top;
  showmessage('Выделена ячейка [' + IntToStr(j)+ ',  ' + IntToStr(i) + 
              '].  Ее значение: ' + StringGrid1.Cells[j, i]);
end;

Последний раз редактировалось StealthMaster; 02.12.2009 в 15:04..
 
Ответить с цитированием