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

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.
А так у себя проверял - все работает..

---

← →
Homa_Programer ©   (2005-06-03 10:58) [5]

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

просто

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

---

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

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



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