| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DBGrid [D5]

Sergey-ZZZ ©   (2002-08-12 15:17:00) 

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

---

SaS13   (2002-08-12 16:45:00) [1]

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

---

Mike Kouzmine   (2002-08-12 16:42:00) [2]

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

---

Sergey-ZZZ   (2002-08-12 16:00:00) [3]

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

---

SaS13   (2002-08-12 15:54:00) [4]

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

---

SaS13   (2002-08-12 15:49:00) [5]

чё-нить типа этого:
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;

---

Sergey-ZZZ   (2002-08-12 15:36:00) [6]

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

---

SaS13   (2002-08-12 15:23:00) [7]

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

---

Mike Kouzmine   (2002-08-12 15:18:00) [8]

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

---

Наверх