VPF::Как привязать Popup menu к StringGrid - Форум программистов

Sixkiller

Дата 18.8.2003, 01:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Необходимо, чтобы Popup Menu можно было вызывать только у одного определенного столбца в StringGrid, причем после выбора пункта меню должны передаваться данные той форме, которая будет вызываться - значение ячейки той же строки в StringGrid, но другого столбца. Как это сделать, подскажите, кто может. Определенного ответа я пока не нашел. Заранее благодарен.

p0s0l

Дата 18.8.2003, 01:58 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Можно сделать через OnContextPopup:

Код

var
  ContextRow : integer; // глобальная переменная - № ряда, в котором нажали правую кнопку

procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  col : integer;
begin
  StringGrid1.MouseToCell(MousePos.X, MousePos.y, col, ContextRow);
  Handled := col <> 2;
end;

procedure TForm1.MenuItem1Click(Sender: TObject); // OnClick одного из элементов Popup-меню
begin
  MyForm.MyProcedure (StringGrid1.Cells[3, ContextRow]);
end;

--------------------

С уважением, г-н Посол.

Barmaley

Дата 18.8.2003, 04:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 12.8.2003

Репутация: нет
Всего: нет

Можно сделать и через MouseDown:
В свойстве PopupMenu грида указываешь соответствующую PopupMenu и:

Код


procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var CurrentCol, CurrentRow: integer;
begin
  TStringGrid(Sender).MouseToCell(X, Y, CurrentCol, CurrentRow);
  TStringGrid(Sender).PopupMenu.AutoPopup:=False;
  If Button = mbRight
  Then TStringGrid(Sender).PopupMenu.AutoPopup:=True;
  End;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »