| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как определить в видимой части номер строки в StringGrid [D2005, XP]

koha ©   (2006-09-03 13:02:00) 

Такая проблема: создана сетка с данными нужно правой кнопкой мыши установить фокус на строке.
- Использовал такой код:
procedure TForm1.StrGridMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin  
 if (Y div StrGrid.DefaultRowHeight) > StrGrid.RowCount -1 then
   StrGrid.Row:=StrGrid.RowCount-1
 else StrGrid.Row:=(Y div StrGrid.DefaultRowHeight);  
end;
- Но это работает пока список не прокручен, а если список прокручен, то нужно знать номер первой строки в видимой части StringGrid чтобы получить фокус StrGrid.Row:= < № 1 строки в видимой части > + (Y div StrGrid.DefaultRowHeight)

- Как найти номер 1 строки в видимой части StringGrid?

---

koha   (2006-09-03 15:13:00) [1]

Спасибо за советы, но мне кажется я неплохой метод нашел тоже:

procedure TForm1.StrGridMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
Var GrCoord: TGridCoord;
begin
 GrCoord:=StrGrid.MouseCoord(X,Y);
 if (ssRight in Shift) then
 if GrCoord.Y = -1 then StrGrid.Row:=StrGrid.RowCount-1
 else StrGrid.Row:=GrCoord.Y;
end;

---

Крокодил Гений   (2006-09-03 13:21:00) [2]

TopRow - тоже вариант )

---

Virgo_Style   (2006-09-03 13:10:00) [3]

MouseToCell

---

Loginov Dmitry   (2006-09-03 13:04:00) [4]

Думаю, можно обойтись функцией CellRect()

---

Наверх