Включение/выключение элемента

Форумы Помощь по пакетуВключение/выключение элемента ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 21

Рейтинг: 0

#1: 2019-12-21 12:12:31 ЛС | профиль | цитата

Как сделать так, чтобы по событию, свойство кнопки, или поля ввода, "Enabled", менялось с true на false?
Извиняюсь, разрешите задать еще вопрос: как сделать так, чтобы по событию вызывалось окно? И как сделать так, чтобы нельзя было изменить размер окна?

Редактировалось 2 раз(а), последний 2019-12-21 12:24:53

карма: 0

Ответов: 8980

Рейтинг: 825

#2: 2019-12-21 15:41:12 ЛС | профиль | цитата

Kotofey, подать на точку "Enabled" число 1 или 0


Add(MainForm,2953706,133,91)
{
 Point(Handle)
}
Add(Button,505713,189,91)
{
 Left=35
 Top=35
 Caption="1 / 0"
 link(onClick,1790946:doNext,[])
}
Add(Counter,1790946,238,91)
{
 Max=1
 Default=1
 link(onNext,1647948:doVisible,[])
}
Add(ListBox,1647948,315,49)
{
 Left=130
 Top=20
 Width=120
 Height=165
 Strings=#3:лдо|3:ьиб|3:шщз|
 Point(doVisible)
 Point(doEnabled)
}
Add(Button,9675499,189,161)
{
 Left=35
 Top=70
 Caption="1"
 link(onClick,6877971:doWork2,[(228,167)(228,139)])
}
Add(Button,7029617,189,126)
{
 Left=35
 Top=100
 Caption="0"
 link(onClick,6877971:doWork1,[])
}
Add(Button,6107634,189,196)
{
 Left=35
 Top=135
 Caption="1"
 Data=Integer(1)
 link(onClick,13799702:doWork2,[])
}
Add(Button,222700,189,231)
{
 Left=35
 Top=170
 Caption="0"
 Data=Integer(0)
 link(onClick,13799702:doWork3,[(228,237)])
}
Add(ChanelToIndex,6877971,238,126)
{
 link(onIndex,2725374:doWork2,[])
}
Add(HubEx,2725374,280,126)
{
 Angle=3
 link(onEvent,1647948:doEnabled,[(284,104)])
}
Add(HubEx,13799702,224,196)
{
 link(onEvent,2725374:doWork3,[(284,202)])
}
Add(MinMaxSize,303706,133,147)
{
 EnabledMinMax=0
 MinWidth=400
 MinHeight=300
 MaxWidth=400
 MaxHeight=300
}

карма: 19

Ответов: 21

Рейтинг: 0

#3: 2019-12-21 21:05:36 ЛС | профиль | цитата

Леонид писал(а):

Kotofey, подать на точку "Enabled" число 1 или 0

А почему у меня не работает?


Add(MainForm,2953706,21,105)
{
 Width=137
 Height=83
}
Add(BitBtn,15780171,77,105)
{
 Left=35
 Top=10
 Point(doEnabled)
 link(onClick,1866716:doData,[])
}
Add(DoData,1866716,126,105)
{
 Data=Real(0)
 link(onEventData,15780171:doEnabled,[(170,111)(170,99)(64,99)(64,118)])
}

карма: 0

Ответов: 4673

Рейтинг: 768

#4: 2019-12-21 22:01:56 ЛС | профиль | цитата

Поставить в DoData тип данных "Integer".

В Share.pas функция ReadBool() недостаточно хорошо работает. Я бы предпочел что-то типа такого:

Result :=   ((Data.Data_type = data_real) and (Data.rdata <> 0)) or
  ((Data.Data_type = data_str) and (Data.sdata <> '') and (Data.sdata <> '0')) or
  ((Data.Data_type <> data_null) and (Data.idata <> 0)); // Или сузить: ((Data.Data_type = data_int) and (Data.idata <> 0))

Редактировалось 2 раз(а), последний 2019-12-21 22:04:12

карма: 26

Форумы Помощь по пакетуВключение/выключение элемента ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)