Вверх ↑
Ответов: 4724
Рейтинг: 522
#1: 2021-06-09 18:20:56 ЛС | профиль | цитата
изрядно простая задача, решаемая через IC

Add(MainForm,778971,70,70)
{
Left=20
Top=105
Width=334
Height=284
}
Add(Button,10268552,126,70)
{
Left=25
Top=215
link(onClick,2190672:doWork1,[])
}
Add(ChildPanel,2190672,189,70)
{
}
BEGIN_SDK
Add(EditMulti,2969430,21,21)
{
WorkCount=1
Width=405
link(doWork1,3035930:doClearEdit,[(73,27)(73,160)])
}
Add(Panel,943418,126,105)
{
Left=25
Top=15
Width=274
Height=153
Point(PHandle)
}
Add(Edit,7627047,189,49)
{
Left=15
Top=50
Width=125
}
Add(Edit,3964155,245,49)
{
Left=15
Top=20
Width=125
link(onChange,4940770:doValue,[])
}
Add(Debug,165634,392,49)
{
}
Add(Edit,12659440,189,105)
{
Left=15
Top=110
Width=125
}
Add(Edit,11639062,245,105)
{
Left=15
Top=80
Width=125
}
Add(InlineCode,3035930,126,154)
{
WorkPoints=#11:doClearEdit|
DataPoints=#57:PHandle=Указатель на контейнер где нужно очистить Edit(ы)|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Windows,Messages,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|24: PHandle: THI_Event;|53: procedure doClearEdit(var dt: TData; idx: word);|0:|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doClearEdit;|33:var count,i: integer;P: PControl;|5:begin|48: count := ReadControl(PHandle,'').ChildCount-1;|24: for i := 0 to count do|7: begin|45: P := ReadControl(PHandle,'').Children[i];|41: if P.SubClassName = 'obj_EDIT' then |65: //P^.Text := ''; // тоже работает, но API надёжней от креша|45: SendMessage(P.Handle, WM_SETTEXT, 0,0);|6: end;|4:end;|0:|4:end.|
link(PHandle,943418:PHandle,[])
}
Add(GlobalVar,4940770,315,49)
{
Name="test"
link(onValue,165634:doEvent,[])
}
Add(Memo,15134234,126,42)
{
Left=160
Top=20
Width=95
Height=110
Strings=#4:Тест|
}
END_SDK

карма: 6
1
Голосовали:3042