![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Нажатие кнопки мышы [D5, WinXP]
Inkotex © (2005-07-14 19:01:00)Подскажыте как правильнее и где именно сделать следущие:
Сделать так чтоб при нажатии правой кнопки мышы над DBGridом если в датасете даные которого отображает дбгрид, есть записи то выпадало попапменю, если записей нет то тогда нечего непроисходило.
Спасибо.
Да если можно и нетрудно то и кусок кода кинте.
Inkotex (2005-07-14 22:06:00) [1]то ДЖО бальшое спасибо
Просто Джо (2005-07-14 20:53:00) [2]Как-то так, то есть:
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;
Просто Джо (2005-07-14 20:48:00) [3]в обработчике OnMouseDown:
if <есть данные> then
PopupMenu1.Popup(...)
Inkotex (2005-07-14 20:46:00) [4]Ну может ктото подскажет