Проверка текста из DBLookupComboBox

@tosty · Регистрация: 15.12.2021

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

помогите. надо проверить если в DBLookupComboBox нет текста то GroupBox1.Visible:=False иначе True

Delphi
1
2
3
4
5
6
procedure TForm3.DBLookupComboBox2Click(Sender: TObject);
begin
 
IF DBLookupComboBox2.Text='' then GroupBox1.Visible:=False
else GroupBox1.Visible:=True;
end;

@tosty · 29.12.2021, 16:05 **[ТС]**

Вначале все группбоксы сделал невидимыми (установил значение свойства Visible в False).
А дальше так:

Delphi
1
2
3
4
5
6
procedure TForm3.DBLookupComboBox2Click(Sender: TObject);
begin
GroupBox1.Visible := DBLookupCombobox2.KeyValue = 1;
GroupBox2.Visible := DBLookupCombobox2.KeyValue = 2;
GroupBox3.Visible := DBLookupCombobox2.KeyValue = 3;
end;

по другому у меня не выходит. а при разном значении один видем а другие нет

@krapotkin · 29.12.2021, 16:12

Delphi
1
2
3
GroupBox1.Visible := yourDataset.fieldByName('КакоеТоПоле').asInteger = 1;
GroupBox2.Visible := yourDataset.fieldByName('КакоеТоПоле').asInteger = 2;
GroupBox3.Visible := yourDataset.fieldByName('КакоеТоПоле').asInteger = 3;

скорее всего это должно лечь в обработчик изменения поля "КакоеТоПоле"

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

Опции темы