Нажатие кнопки мышы

← →
Inkotex (2005-07-14 19:01) [0]

Подскажыте как правильнее и где именно сделать следущие:
Сделать так чтоб при нажатии правой кнопки мышы над DBGridом если в датасете даные которого отображает дбгрид, есть записи то выпадало попапменю, если записей нет то тогда нечего непроисходило.
Спасибо.
Да если можно и нетрудно то и кусок кода кинте.

← →
Inkotex (2005-07-14 20:46) [1]

Ну может ктото подскажет

← →
Просто Джо © (2005-07-14 20:48) [2]

в обработчике OnMouseDown:
if <есть данные> then
PopupMenu1.Popup(...)

← →
Просто Джо © (2005-07-14 20:53) [3]

Как-то так, то есть:
procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (Button = mbRight) and (not DBGrid1.DataSource.DataSet.IsEmpty) then PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y); end;

← →
Inkotex (2005-07-14 22:06) [4]

то ДЖО бальшое спасибо

Нажатие кнопки мышы Найти похожие ветки