Отключение Popupmenu

@Firuz · Регистрация: 07.08.2015

Студворк — интернет-сервис помощи студентам

Мир всем и привет !

Если в базе (Ассess+ADOquery) есть запись, то включит PopupMenu в DBGrid-е, а если база пуста, тогда отключит PopupMenu в DBGrid-е
как сделать такое ? я сделал так но этот ход не вариант )

Delphi
1
2
if adoquery1.Eof then \\ если пусто то
dbgrideh1.PopupMenu:=nil;\\вырубить

или так

Delphi
1
2
if adoquery1.RecordCount <> 0 then \\ если есть запись то
dbgrideh1.PopupMenu:=PopupMenu1; \\ включить

вроде бы должно работать )) или это потому, что я в ФормКрейте запихаю все это ?

@drvolodko · 28.12.2017, 16:27

Firuz, на OnCreate у формы вообще не желательно что либо запихивать. Есть OnShow.

Сообщение от Firuz

я сделал так но этот ход не вариант )

Чем тебя не устраивает вариант:

Delphi
1
2
3
4
if adoquery1.RecordCount > 0 then //или if not adoquery1.Eof или if not adoquery1.IsEmpty
dbgrideh1.PopupMenu:=PopupMenu1
else
dbgrideh1.PopupMenu:=nil;

@Firuz · 28.12.2017, 17:08 **[ТС]**

сейчас попробую !

Добавлено через 6 минут
Не работает именно в этом ходе я тоже попробовал )

Добавлено через 10 минут
а ещё в этом коде что та не так ) если таблица изначально пуста то Попуп меню отключен, но если добавит запись то Попуп меню не включается ))

Добавлено через 2 минуты
возможно надо искать пустоту самого DBGrideh

Добавлено через 35 секунд
не понимаю

@drvolodko · 28.12.2017, 17:30

У меня работает...
DBGrideh только отображает данные. Он тут не при делах, от слова совсем.
Этот код надо вставлять в процедуру отбора записей. После Adoquery1.Open. Тогда должно сработать.

Добавлено через 6 минут
Кстати, а в самом PopupMenu менюшки созданы? Если PopupMenu пустое - то и отображать оно ничего не будет.

@Firuz · 28.12.2017, 17:40 **[ТС]**

как та так

@drvolodko · 28.12.2017, 17:45

тогда выкладывай свою процедуру, где у тебя записи выбираются. У тебя явно что-то там не так.

@Firuz · 28.12.2017, 17:47 **[ТС]**

а это когда пуста )

@drvolodko · 28.12.2017, 18:42

Значит не пуста. Надо смотреть сам датасет, а не грид. Повторюсь - грид тут совершенно ни при чем...

@Firuz · 28.12.2017, 19:59 **[ТС]**

ну дела в том что я и обращаюсь в Адогуери я же написал код

Скандербег · 28.12.2017, 20:03

Когда датасет всегда открыт как это бывает у новичков, даже событие AfterOpen не поможет и тогда самое простое сделать так:
- у меню свойство AutoPopup установить в False;
- создать для грида процедуру, обрабатывающую событие OnMouseUp;
и в событии проверять на пустоту набор данных. Если не пусто, то запускать меню, иначе ничего не делать:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.DBGridEh1MouseUp(Sender: TObject; Button: TMouseButton;
             Shift: TShiftState; X, Y: Integer);
var P : TPoint;
begin
  if not ADOQuery1.Eof then begin
    P := DBGridEh1.ClientToScreen(Point(X, Y));
    PopupMenu1.Popup(P.X, P.Y)
  end;  
end;

@Firuz · 28.12.2017, 20:20 **[ТС]**

Да увеличить Аллах твоё знание !
тема закрыта

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Firuz 2 / 2 / 0 Регистрация: 07.08.2015 Сообщений: 428
	28.12.2017, 17:08 [ТС]
	сейчас попробую ! Добавлено через 6 минут Не работает именно в этом ходе я тоже попробовал ) Добавлено через 10 минут а ещё в этом коде что та не так ) если таблица изначально пуста то Попуп меню отключен, но если добавит запись то Попуп меню не включается )) Добавлено через 2 минуты возможно надо искать пустоту самого DBGrideh Добавлено через 35 секунд не понимаю 0

@drvolodko 224 / 68 / 33 Регистрация: 23.05.2014 Сообщений: 752
	28.12.2017, 17:30
	У меня работает... DBGrideh только отображает данные. Он тут не при делах, от слова совсем. Этот код надо вставлять в процедуру отбора записей. После Adoquery1.Open. Тогда должно сработать. Добавлено через 6 минут Кстати, а в самом PopupMenu менюшки созданы? Если PopupMenu пустое - то и отображать оно ничего не будет. 0

@Firuz 2 / 2 / 0 Регистрация: 07.08.2015 Сообщений: 428
	28.12.2017, 17:40 [ТС]
	как та так Миниатюры 0

@drvolodko 224 / 68 / 33 Регистрация: 23.05.2014 Сообщений: 752
	28.12.2017, 17:45
	тогда выкладывай свою процедуру, где у тебя записи выбираются. У тебя явно что-то там не так. 0

@Firuz 2 / 2 / 0 Регистрация: 07.08.2015 Сообщений: 428
	28.12.2017, 17:47 [ТС]
	а это когда пуста ) Миниатюры 0

@drvolodko 224 / 68 / 33 Регистрация: 23.05.2014 Сообщений: 752
	28.12.2017, 18:42
	Значит не пуста. Надо смотреть сам датасет, а не грид. Повторюсь - грид тут совершенно ни при чем... 0

@Firuz 2 / 2 / 0 Регистрация: 07.08.2015 Сообщений: 428
	28.12.2017, 19:59 [ТС]
	ну дела в том что я и обращаюсь в Адогуери я же написал код 0

@Firuz 2 / 2 / 0 Регистрация: 07.08.2015 Сообщений: 428
	28.12.2017, 20:20 [ТС]
	Да увеличить Аллах твоё знание ! тема закрыта 0

Отключение Popupmenu

Решение