Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
Принудительное выделение строки Найти похожие ветки
← →
Beglec (2004-04-22 08:19) [0]Добрый день.
Давно сюда не заходил, но вот возникла банальная проблема.
Есть String Grid или DBgrid
Вообщем проблема в следующем
Подскажите как сделать так что бы при нажатии правой [НЕ ЛЕВОЙ] кнопки мыши выделялась строка.
Спосибо
← →
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;
← →
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: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;
← →
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.
← →
inic (2004-04-22 12:04) [4]Вообще то да, но и мой и твой способ забывают о клавиатуре (т.е. если гулять по sg с помощью стрелок). Если sg нужен только для просмотра и редактирование не нужно, тогда лучше поставить для sg.options опцию goRowSelect в True.
← →
Beglec (2004-04-22 12:11) [5]так и стоит
← →
Beglec (2004-04-22 12:11) [5]так и стоит
Страницы: 1 вся ветка
Текущий архив: 2004.04.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.034 c
