Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.29;
Скачать: 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 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.054 c
1-1117594257
RomanSergeevich
2005-06-01 06:50
2005.06.29
ярлык программы


4-1115273947
Алексей
2005-05-05 10:19
2005.06.29
AviStreamGetFrame ошибка


3-1116480288
dreamse
2005-05-19 09:24
2005.06.29
Как узнать какие базы есть на сервере MSSQL ?


3-1116153034
Stef
2005-05-15 14:30
2005.06.29
Поиск подслова в слове


1-1118169137
Ralf
2005-06-07 22:32
2005.06.29
Form