Последняя версия DataExpress 3 beta от 7 декабря 2019 года.
Изображение Скачать | Изображение Что нового?
См. также: Энциклопедия DX | Форум на develop-soft | Песочница
ИзображениеИзображениеИзображение

как прописать скрипт события при выборе заданного значения в выпадающем списке - объект "Список" (ComboBox) ?

Все о том как сделать что-то с помощью скриптов.
zeyram
Интересующийся
Сообщения: 191
Зарегистрирован: Пн июн 26, 2017 1:43 pm

как прописать скрипт события при выборе заданного значения в выпадающем списке - объект "Список" (ComboBox) ?

Сообщение zeyram » Вс июл 02, 2017 3:33 pm

у меня есть в форме объект "Список" (ComboBox) с заданными вручную значениями (текстом) и мне нужно написать в скриптах команду, которая определяет какое значение из выпадающего списка выбрано в данный момент и в зависимости от значение выполнять какие-то действия или нет.

я создал такой код

Код: Выделить всё

procedure ChangeComboBox6 (Sender: TObject);
begin
if dxComboBox6.Text='замер НЕ СДЕЛАН' then
begin
dxLabel14.Visible:=true;
dxComboBox2.Visible:=true;
end
else
begin
dxLabel14.Visible:=false;
dxComboBox2.Visible:=false;
end
end;

procedure Form_Create;
begin
dxComboBox6.OnChangeBounds:=@ ChangeComboBox6;
end;

и я не знаю правильно или нет "dxComboBox6.Text" и "dxComboBox6.OnChangeBounds" ? подскажите ка нужно

neitri
Мастер скриптов
Сообщения: 539
Зарегистрирован: Пн фев 13, 2017 5:42 pm

Re: как прописать скрипт события при выборе заданного значения в выпадающем списке - объект "Список" (ComboBox) ?

Сообщение neitri » Вс июл 02, 2017 3:51 pm

ItemIndex возращает номер выбраного пункта.

А где события OnChange и OnSelect ? В TComboBox они есть, а в TdxComgoBox нету.
Помогли Тебе. Помоги проекту.
Реквизиты помощи Вы можете найти в окне "О программе"

zeyram
Интересующийся
Сообщения: 191
Зарегистрирован: Пн июн 26, 2017 1:43 pm

Re: как прописать скрипт события при выборе заданного значения в выпадающем списке - объект "Список" (ComboBox) ?

Сообщение zeyram » Вс июл 02, 2017 4:05 pm

neitri писал(а):ItemIndex возращает номер выбраного пункта.

А где события OnChange и OnSelect ? В TComboBox они есть, а в TdxComgoBox нету.


что-то я не разобрался какое событие нужно указать при изменении значения в dxComboBox6 ?
я написал так

Код: Выделить всё

procedure ChangeComboBox6 (Sender: TObject);
begin
if dxComboBox6.ItemIndex =2 then
begin
dxLabel14.Visible:=true;
dxComboBox2.Visible:=true;
end
else
begin
dxLabel14.Visible:=false;
dxComboBox2.Visible:=false;
end
end;

procedure Form_Create;
begin
dxComboBox6.OnSelect:=@ ChangeComboBox6;

end;

вот это событие "dxComboBox6.OnSelect" - какое нужно писать ? скажите, и что вы имели ввиду "А где события OnChange и OnSelect ?" - я не совсем понял. более детально объясните и напишите пожалуйста код!

zeyram
Интересующийся
Сообщения: 191
Зарегистрирован: Пн июн 26, 2017 1:43 pm

Re: как прописать скрипт события при выборе заданного значения в выпадающем списке - объект "Список" (ComboBox) ?

Сообщение zeyram » Вс июл 02, 2017 4:32 pm

ну вот я сам разобрался, покопался на форуме и нашёл похожий пример, как у меня и чуть подправил скрипт и вот что получилось:

Код: Выделить всё

procedure Vvod_dannih_v_obekti_formi (Sender, Control: TObject; const FieldName: String);
begin
if self['статус замера'] = 'замер НЕ СДЕЛАН' then
begin
dxLabel14.Visible:=true;
dxComboBox2.Visible:=true;
end
else
begin
dxLabel14.Visible:=false;
dxComboBox2.Visible:=false;
end
end;

procedure Form_Create;
begin
Self.OnFieldChange:=@ Vvod_dannih_v_obekti_formi;

end;


и теперь всё работает ка надо!

Аватара пользователя
YurAnt
Эксперт
Сообщения: 3352
Зарегистрирован: Чт апр 13, 2017 8:57 am
Поблагодарили: 4 раза
Контактная информация:

Re: как прописать скрипт события при выборе заданного значения в выпадающем списке - объект "Список" (ComboBox) ?

Сообщение YurAnt » Вс июл 02, 2017 4:34 pm

neitri писал(а):А где события OnChange и OnSelect ? В TComboBox они есть, а в TdxComgoBox нету.

В TdxCombobox убраны из-за конфликта с автоматикой и DataSet-ами (ещё до резки красной ленточки в DX3).
Изображение