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

Схема ниже заносит в список координатьу только в том случае если она меняется, что напрямую говорит о движение мыши по оси Х
[code:1]Add(Image,2512408,136,140) {
Left=18
Top=29
Width=100
Height=10
Color=8388608
Draw=0
MouseCapture=0
Point(onMouseMove)
Point(MouseX)
link(onMouseMove,9159897:doData,[])
}
Add(ListBox,272683,252,147)
{
Left=155
Top=10
Width=190
Height=245
}
Add(ChangeMon,9159897,196,147)
{
link(onData,272683:doAdd,[])
link(Data,2512408:MouseX,[(202,137)(182,137)(182,182)(156,182)])
}
[/code:1]

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

Про это, возможно, Вы можете узнать на Форуме любителей писать что-нибудь на Delphi Или, ещё вариант, только что пришёл на ум, перед тем как нажать кнопочку "Компилить", нажать комбинацию Ctrl - D, а после компиляции посмотреть как это выглядит на языке Delphi, заглянув в папку ...HiasmElementsDelphicode и отыскать там по времени модификации созданные только что файлы.

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

После Ctrl+D можно посмотреть Дельфячие коды, сгенерированные HiAsm-ом

Опять же, в справке про это сказано

Sirko, каков вопрос таков ответ Я вот перечитал топик и подумал что имелось ввиду всего лишь обработка onMouseMove. А это как и в HiAsm расположено на второй вкладке Object Inspector->Events

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

вот таков алгоритм:
[code:1]Add(Timer,6952708,42,182) {
Interval=33
link(onTimer,15921913:doEvent1,[])
}
Add(MouseEvent,15525188,182,126)
{
}
Add(ChangeMon,6131145,182,189)
{
link(onData,3773688:doWork2,[])
link(Data,15525188:MouseX,[])
}
Add(ChangeMon,4525749,189,231)
{
link(onData,3773688:doWork3,[(228,237)])
link(Data,15525188:MouseY,[])
}
Add(Hub,15921913,91,182)
{
OutCount=4
link(onEvent1,4861330:doData,[])
link(onEvent2,6131145:doData,[])
link(onEvent3,4525749:doData,[(156,202)(156,237)])
link(onEvent4,15716700:doCompare,[(146,209)(146,272)])
}
Add(Memory,4800299,294,182)
{
Default=Integer(1)
}
Add(DoData,4861330,245,182)
{
Data=Integer(0)
link(onEventData,4800299:doValue,[])
}
Add(HubEx,3773688,224,182)
{
link(onEvent,4800299:doClear,[])
}
Add(If_else,15716700,294,266)
{
Op2=Integer(1)
link(onTrue,5376374:doData,[(338,272)(338,251)])
link(onFalse,4171034:doData,[(338,279)(338,300)])
link(Op1,4800299:Value,[])
}
Add(DoData,5376374,350,245)
{
Data=String(двигается)
link(onEventData,13307671:doWork1,[(410,251)])
}
Add(DoData,4171034,350,294)
{
Data=String(не двигается)
link(onEventData,13307671:doWork3,[(410,300)])
}
Add(Label,11456259,434,266)
{
Left=75
Top=45
}
Add(HubEx,13307671,406,259)
{
link(onEvent,11456259:doText,[])
}
[/code:1]
перевести в Delphi не сложно думаю 8-)

Dilma, Бедняга он сейчас помойму лопнет:-)))

Ясно же куда поглядеть.