Редактировалось 2 раз(а), последний 2025-01-09 15:09:42

Есть такой элемент Переключатель (Switch ) - Думаю он поможет ...
Можно сделать так один раз нажимаешь одни данные другой другие.

Иначе нужно отслеживать SetFocus-KillFocus и юзать onMouseUp от формы.

Зы
Или это про клавиатуру ?

KIRR, в примере кнопка для обозначения и в схеме не участвует, работает элемент "Надпись", у которого есть соответствующие свойства.

KIRR, забыл про сам пример:
[code:1]Add(MainForm,16673163,21,105) {
Left=20
Top=105
Width=324
Height=236
link(onCreate,3578528:doData,[(180,146)(89,146)])
}
Add(Label,2158134,203,140)
{
Left=100
Top=100
Width=500
Height=20
Transparent=0
Caption="Кнопка"
AutoSize=1
Alignment=2
Point(onMouseDown)
Point(onMouseUp)
link(onMouseDown,10524911:doData,[(254,153)(254,139)])
link(onMouseUp,15835051:doData,[(254,160)(254,188)])
}
Add(Button,2142927,154,140)
{
Left=100
Top=100
Width=50
Point(doSendToBack)
}
Add(Label,8558532,371,154)
{
Left=170
Top=100
}
Add(DoData,10524911,273,133)
{
Data=String(Нажали)
link(onEventData,12801480:doEvent1,[(313,139)(313,160)])
}
Add(DoData,15835051,273,182)
{
Data=String(Отпустили)
link(onEventData,12801480:doEvent2,[(313,188)(313,167)])
}
Add(Hub,12801480,322,154)
{
InCount=2
OutCount=1
link(onEvent1,8558532:doText,[])
}
Add(DoData,3578528,98,140)
{
Data=Integer(1)
link(onEventData,2142927:doSendToBack,[])
}
[/code:1]

[code:1]Add(ToolBar,9506405,140,210) {
Left=80
Top=90
Width=70
Height=25
Align=0
Ctl3D=1
Caption=0
Flat=1
Buttons=[-Bitmap=[]]
link(onClick,5192398:doSwitch,[])
}
Add(Label,9305863,259,210)
{
Left=160
Top=95
}
Add(Switch,5192398,196,210)
{
DataOn=String(On)
DataOff=String(Off)
link(onSwitch,9305863:doText,[])
}
[/code:1]

-=Dima=-, ну есть таки функциональная разница с примером Леонид-а

У него смотрелось бы эффектней, если менять надпись в Button.Caption, а размеры и положение прозрачной лэйблочки выровнять с кнопочкой. Ну Z-координату кнопочки можно сделать самой нижней по умолчанию, наверное....

KIRR, Galkov, оказывается всё гораздо проще, как с надписью в If_Else (ай да Dilma ....): достаточно в файл Button.ini в раздел Methods вставить
[code:1][Methods] onMouseDown=Событие происходит всякий раз при клике в области компонента (перед событием onClick) и возвращает в поток код нажатой кнопки|2|
onMouseUp=Событие происходит всякий раз при отпускание кнопки мыши и возвращает в поток код нажатой кнопки|2|[/code:1]
и как по волшебству возникают у кнопки соответствующие и действующие точки! :D

Окрылённый успехом сейчас сделал метод в элементе BASS_CD:
[code:1]onMouseMove=Событие происходит всякий раз при перемещение мышки над компонентом, открывает CD_ROM с уложенной купюрой достоинством 100 (сто) рублей и номером из точки Data //по умолчанию АА00000000//|2|[/code:1] [b]Dilma[/b]!! недоработка!! :(

Леонид, A почему 100Руб. Хочу что-бы там лежало 100$(и не одна).Но что то сколько не открывал невидел даже 100Руб.Наверное не тот CD ROM открыл.Дай адрес CD ROMA где лежат.

Редактировалось 2 раз(а), последний 2025-01-09 15:09:43

Редактировалось 2 раз(а), последний 2025-01-09 15:09:43

Вячеслав, так и я не видел, все вопросы к Dilma-е