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

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

Нажатие кнопки мышы [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]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо