Принудительное выделение строки

← →
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]

так и стоит

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