Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.047 c
3-1116151960
_e_u_
2005-05-15 14:12
2005.06.29
добавление полей в ADOQuery, что требуется?


4-1114433739
ANB
2005-04-25 16:55
2005.06.29
Блокировка папки после создания


10-1094464325
Ragazor
2004-09-06 13:52
2005.06.29
Как в делфи перевести команду 1С такого синтаксиса


1-1117915991
cranium
2005-06-05 00:13
2005.06.29
Поведение полно оконнго приложения?


6-1112392985
Muh
2005-04-02 02:03
2005.06.29
Почему у флешгета получается, а у меня нет :)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский