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

Вниз

DBGrid   Найти похожие ветки 

← →
Sergey-ZZZ ©   (2002-08-12 15:17) [0]

Как сделать чтобы по нажатию правой кнопкой на определенной колонке DBGrid выскакивало определенное PopUpMenu

---

← →
Mike Kouzmine   (2002-08-12 15:18) [1]

Присвой свойству popmenu свое popmenu

---

← →
SaS13 ©   (2002-08-12 15:23) [2]

обрабатывай нажатие кнопки, выясняй номер колонки и запускай:
PopupMenu1.Popup

---

← →
Sergey-ZZZ ©   (2002-08-12 15:36) [3]

Вопрос для SaS13 если можно код

---

← →
SaS13 ©   (2002-08-12 15:49) [4]

чё-нить типа этого:
procedure TfmMain.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
_i : integer;
_sum : integer;
_col : integer;
begin
if Button = mbRight then
with DBGrid1 do begin
_sum := 0;
_col := -1;
for _i := 0 to Columns.Count - 1 do begin
_sum := _sum + Columns[_i].Width;
if X < sum then begin
_col := _i;
Break
end
end;
{Проверяешь колонку}
if _col = 3 then
PopupMenu1.Popup
end
end;

---

← →
SaS13 ©   (2002-08-12 15:54) [5]

поправка:
PopupMenu1.Popup(X, Y);
могут быть еще ошибки посмотри, я не проверял.

---

← →
Sergey-ZZZ ©   (2002-08-12 16:00) [6]

Для SaS13- спасибо. Я эту задачу делал год назад, но после этого у меня грохнулся винт - все потерял. Кажется я делал нет так, но все равно спасибо, подумаю.

---

← →
Mike Kouzmine   (2002-08-12 16:42) [7]

А что, стандартные вещи уже не катят? DBGrid1.Columns[X].PopupMenu?

---

← →
SaS13 ©   (2002-08-12 16:45) [8]

Mike Kouzmine (12.08.02 16:42)
точно =)) есть такое дело, просто не использовал, а проверить не удосужился

---

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

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

Наверх

Память: 0.48 MB
Время: 0.014 c