Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.19;
Скачать: CL | DM;

Вниз

Как в StringGrid реагировать на щелчок правой кнопки мыши?   Найти похожие ветки 

 
Muhan ©   (2004-12-03 14:59) [0]

Извинияю за простоту вопроса, но к сожалению, что то не разобраться...
Мне надо чтобы по щелчку выскакивала менюшка и вместе с этим программа определяла место положения мыши..то есть ячейку на которой произошел клик.
Спасибо заранее.


 
begin...end ©   (2004-12-03 15:13) [1]

> Muhan ©   (03.12.04 14:59)

Используйте обработчик OnMouseDown.

var
 Col, Row: Integer;
begin
 if Button = mbRight then
   (Sender as TStringGrid).MouseToCell(X, Y, Col, Row);
end.

А чтобы выскакивала менюшка, назначьте PopupMenu. Если менюшка должна быть разной, в зависимости от того, в каком месте кликнули, то не назначайте его StringGrid"у, а самостоятельно вызывайте нужное PopupMenu в этом же обработчике методом TPopupMenu.Popup().


 
cae ©   (2004-12-03 15:19) [2]

Или так :


procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  ACol, ARow: Longint ;
  Pt : TPoint ;
begin
  if PopupMenu1.PopupComponent is TStringGrid then
  with PopupMenu1.PopupComponent as TStringGrid do
   begin
     Pt := PopupMenu1.PopupPoint ;
     Pt := ScreenToClient(Pt) ;
     MouseToCell(Pt.X,Pt.Y, ACol, ARow);
     Memo1.Lines.Add(IntToStr(ACol) + "    " + IntToStr(ARow)) ;
   end ; // with
end;


 
Muhan ©   (2004-12-03 16:16) [3]

Спасибо большое :)



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

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

Наверх




Память: 0.47 MB
Время: 0.05 c
3-1100698086
ВицеЧайник
2004-11-17 16:28
2004.12.19
Делфи и SQL запрос с датой


14-1101486329
DelphiLexx
2004-11-26 19:25
2004.12.19
Локальный перехват WinApi


1-1101850354
Mega
2004-12-01 00:32
2004.12.19
Обмен сообщениями между MDIParent и MDIChild


14-1101473618
dr Tr0jan
2004-11-26 15:53
2004.12.19
Плюсы/минусы WinXP SP 2


14-1101894851
Koala
2004-12-01 12:54
2004.12.19
Поделитесь мнением, впечатлением (Ноутбук)