Форум: "Базы";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c