StringGrid & mouse

← →
Homa_Programer © (2005-06-03 09:47) [0]

помогите!
необходимо чтобы по нажатию на правую кнопку мыши в StringGrid-е выделялась ячейка !
не получается у меня... грид выделяется ячейки с опозданием..

← →
Antonn © (2005-06-03 09:50) [1]

Так?

procedure TForm.StringGridMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
r: integer;
c: integer;
begin
try
if Button = mbRight then begin
StringGrid.MouseToCell(X, Y, C, R);
with SG_Conn do
begin
if ((Row <> r) or(Col <> c)) then
if (c<= ColCount-1) and (r<=RowCount-1) then
begin
Row := r;
Col := c;
end;
end;
end;
except
end;
end;

← →
Homa_Programer © (2005-06-03 09:52) [2]

проверю щас же :)

← →
Homa_Programer © (2005-06-03 10:01) [3]

работает как и работало, с опозданием. вот в чем касяк:
нажимаю правой кнопкой на ячейку любую, он пишет ее, затем правой нажимаю на другую, а он пишет в мемо содержание предыдущей ячейки .
вот код:
procedure Tplan.sgMonthMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var r: integer; c: integer; begin try if Button = mbRight then begin sgMonth.MouseToCell(X, Y, C, R); with sgMonth do begin if ((Row <> r) or(Col <> c)) then if (c<= ColCount-1) and (r<=RowCount-1) then begin Row := r; Col := c; end; end;//with end;//if button except end; memo1.Text:=sgmonth.Cells[col1,row1]; end;

← →
Pearled (2005-06-03 10:27) [4]

> memo1.Text:=sgmonth.Cells[col1,row1];

А откуда col1, row1 ? Если нужна текущая ячейка замени на c и r.
А так у себя проверял - все работает..

ага, спасибо
> Pearled (03.06.05 10:27) [4]

просто

> col1,row1
у меня были в
procedure Tplan.sgMonthMouseMove так что я оттуда брал их!!!
ну терь все работает :)
благодарю!!!

StringGrid &amp; mouse Найти похожие ветки

StringGrid & mouse Найти похожие ветки