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

Выделение ячейки в StringGrid по нажатию правой кнопки мыши   Найти похожие ветки 

← →
AlexChudd ©   (2010-02-28 14:05) [0]

На StringGrid висит PopupMenu, пункты которого вызывают процедуры, работающие с выделенной в данный момент строкой таблицы.
Чтобы выделить строку, приходится сначала нажать на нее левой кнопкой, а потом уже правой вызывается меню. Как сделать так, чтобы при нажатии правой кнопки и строка выделялась, и меню вызывалось?

---

← →
AlexChudd ©   (2010-02-28 14:12) [1]

gMain : TStringGrid, в качестве PopupMenu указано PopupMenu1, у которого TrackButton=tbRightButton. Нужно по этой же tbRightButton вызывать, видимо, простое нажатие на левую кнопку. Как это сделать, не знаю.

---

← →
{RASkov} ©   (2010-02-28 14:45) [2]

procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var C, R: Integer;
begin
....
 with TStringGrid(Sender) do begin
.....
  MouseToCell(MousePos.X, MousePos.Y, C, R);
  if (C>=FixedCols) and (R>=FixedRows) then begin
   Row:=R; Col:=C;
  end else Handled:=True;
....
 end;
....
end;
подчеркнутое не обязательно, это что бы меню не вызывалось для фиксированных ячеек...

---

← →
AlexChudd ©   (2010-02-28 15:09) [3]

Большое спасибо.

---

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

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



Память: 0.45 MB
Время: 0.005 c