Скачать: CL | DM;

Принудительное выделение строки   Найти похожие ветки 

← →
Beglec   (2004-04-22 08:19) [0]

Добрый день.
Давно сюда не заходил, но вот возникла банальная проблема.
Есть String Grid или DBgrid
Вообщем проблема в следующем
Подскажите как сделать так что бы при нажатии правой [НЕ ЛЕВОЙ] кнопки мыши выделялась строка.

Спосибо

---

← →
inic   (2004-04-22 11:17) [1]

Необходимо обработать событие OnMouseDown у StringGrid или DBGrid:

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var r: TGridRect;
   cx, cy: Integer;
begin
 StringGrid1.MouseToCell(X,Y, cx, cy);
 r.Left:= cx;
 r.Top:= cy;
 r.Right:= r.Left;
 r.Bottom:= r.Top;
 StringGrid1.Selection:= r;
end;

---

← →
Beglec   (2004-04-22 11:41) [2]

Спосибо работает
но выделяет только ячейку
Хотелось бы чтобы выделялась строчка

---

← →
Beglec   (2004-04-22 11:54) [3]

все спосибо разобрался
оказалось все еще просче ;)

procedure TFViewOrder.SGOrderOpenMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var r: TGridRect;
  cx, cy: Integer;
begin
  SGOrderOpen.MouseToCell(X,Y, cx, cy);
  SGOrderOpen.Row:=cy;
end;


---

← →
inic   (2004-04-22 12:04) [4]

Вообще то да, но и мой и твой способ забывают о клавиатуре (т.е. если гулять по sg с помощью стрелок). Если sg нужен только для просмотра и редактирование не нужно, тогда лучше поставить для sg.options опцию goRowSelect в True.

---

← →
Beglec   (2004-04-22 12:11) [5]

так и стоит

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c