Форум: "Основная";
Текущий архив: 2011.10.02;
Скачать: [xml.tar.bz2];
ВнизВыделение ячейки в 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 вся ветка
Форум: "Основная";
Текущий архив: 2011.10.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c