HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуEnter и Close ← Ctrl1Ctrl →
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 28
Рейтинг: 0
#1: 2017-10-26 14:49:34 ЛС | профиль | цитата
Доброго времени суток, многоуважаемые участники симпозиума.
В этот раз, я задался, достаточно, странными вопросами, на которые не смог найти ответа...
Если кто-нибудь знает, как возможно это реализовать, буду весьма благодарен!
Итак, перейдём сразу к сути:
1) Enter:
1.1 Допустим, что на форме имеется два элемента поля ввода (Edit) и одна кнопка (BitBtn);
1.2 При появлении формы: фокус находится, непосредственно, на первом поле ввода, т.е. сразу без каких либо действий (движения мышки/нажатия клавиш) можно изменить текст;
1.3 После нажатия клавиши "ввод" (Enter), фокус переходит на второе поле ввода;
1.4 Затем, ещё раз, после нажатия клавиши "ввод" фокус переходит на кнопку и только тогда, после повторного нажатия - кнопка (BitBtn) вызывает какое-либо действие.
2) Close:
2.1. При нажатии на "Х" появляется дочерняя форма (ChildForm), где находятся две кнопки (BitBtn);
2.2. При нажатии, например, на первую кнопку или на "Х" дочерней формы, это окно закроется, а при нажатии на вторую, закроется уже главная форма.
3) Пустое поле ввода:
3.1 Если, допустим первое и/или второе поле ввода (Edit) без какого-либо текста, т.е. пустое, то кнопка (BitBtn) заблокирована.
Заранее большое спасибо!

Редактировалось 5 раз(а), последний 2017-10-26 14:59:58
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8887
Рейтинг: 823
#2: 2017-10-26 17:13:23 ЛС | профиль | цитата
Dapofig, 


Add(MainForm,2953706,182,133)
{
 BorderStyle=7
 Point(Handle)
 link(onCreate,6235200:doWork3,[(235,153)])
}
Add(Edit,6241631,280,77)
{
 Left=110
 Top=25
 Width=80
 ClearAfterEnter=1
 Point(doSetFocus)
 Point(doSelectAll)
 link(onEnter,14562270:doEvent1,[(340,90)(340,97)])
}
Add(Edit,11081653,385,77)
{
 Left=215
 Top=25
 Width=75
 ClearAfterEnter=1
 Point(doSetFocus)
 Point(doSelectAll)
 link(onEnter,14856364:doCompare,[(424,90)(424,118)(270,118)(270,146)])
}
Add(BitBtn,3255204,161,77)
{
 Left=20
 Top=25
 Enabled=1
 Point(doEnabled)
 link(onClick,7356267:doEvent1,[])
}
Add(Hub,12704522,245,91)
{
 link(onEvent1,6241631:doSetFocus,[])
 link(onEvent2,6241631:doSelectAll,[])
}
Add(Hub,14562270,350,91)
{
 link(onEvent1,11081653:doSetFocus,[])
 link(onEvent2,11081653:doSelectAll,[])
}
Add(ChanelToIndex,1989412,105,77)
{
 link(onIndex,3255204:doEnabled,[(151,83)(151,90)])
}
Add(ChildForm,13450550,119,154)
{
 link(onEvent1,2953706:doClose,[])
}
BEGIN_SDK
  Add(EditMulti,6701111,21,21)
  {
   EventCount=1
   WorkCount=1
   link(doWork1,13183061:doWork2,[(53,27)(53,153)])
  }
  Add(MainForm,6339227,238,112)
  {
   Left=35
   Top=105
   Visible=1
   Point(doVisible)
  }
  Add(BitBtn,8450927,119,112)
  {
   Left=115
   Top=55
   Caption="Х"
   link(onClick,13183061:doWork1,[(179,118)(179,146)])
  }
  Add(BitBtn,13377682,224,56)
  {
   Left=220
   Top=55
   Caption="ХХ"
   link(onClick,6701111:onEvent1,[(263,62)(263,27)])
  }
  Add(ChanelToIndex,13183061,189,140)
  {
   link(onIndex,6339227:doVisible,[])
  }
END_SDK
Add(Hub,7356267,203,77)
{
 OutCount=3
 link(onEvent2,1989412:doWork1,[(228,90)(228,69)(95,69)(95,83)])
 link(onEvent3,6235200:doWork2,[])
}
Add(If_else,14856364,280,140)
{
 Type=5
 link(onTrue,3481029:doCompare,[])
 link(Op1,6241631:Text,[])
 link(Op2,3714636:Var1,[(293,131)])
}
Add(If_else,3481029,385,140)
{
 Type=5
 link(onTrue,1989412:doWork2,[(424,146)(424,125)(95,125)(95,90)])
 link(Op1,11081653:Text,[])
 link(Op2,3714636:Var2,[])
}
Add(Memory,2466152,434,77)
{
}
Add(GetDataEx,3714636,392,126)
{
 Angle=1
 link(Data,2466152:Value,[(440,131)])
}
Add(HubEx,6235200,231,91)
{
 link(onEvent,12704522:doEvent1,[])
}
Add(ChildPanel,6916426,63,154)
{
 link(onEvent1,13450550:doWork1,[])
 link(onEvent2,16013305:doEvent,[(109,167)(109,195)])
 link(onEvent3,6652637:doEvent,[(102,174)(102,230)])
}
BEGIN_SDK
  Add(EditMulti,7239228,21,21)
  {
   EventCount=3
  }
  Add(Panel,14602974,35,105)
  {
   Width=400
   Height=20
   Align=2
   Color=16636857
   BorderWidth=0
   BevelInner=0
   BevelWidth=0
  }
  Add(BitBtn,3845564,224,42)
  {
   Left=335
   Width=53
   Align=3
   Caption=""
   Bitmap=[ZIP760B000078DACD955D4C5BE719C7BBEB5D6CD27AD18B2EE9C2F848F341A5CA75A8D51A2F1438063383EB701C186A2A0864E9BA35310989E335AE430E2634408AB54DF1D1A6E0A3E6609363B0010F687089E3F071620EC621CC71C1B13D6C192BB074BB9BB43DEFEB1011DA5CE4AEAF7E477ADEE77D9EFFFF2F5FC0AF14A77EFC123E6FC197075F3E7C2FC3F7A3975EC1FDC227EF5BCFABB9475EFDA5F209D9953FCFA9DC91A3DA99ABDA99F7FE6BBBD5BBF6A8B3F61CCADA5B9DBDAF3A7B3F99B3FF706E3E220F5193F7A4389CF7C66691AF79F64A02B9F9D5B9FB0FE5EC5367EF7D3F6B8F2A6B4FD5AEDD95BFC853BE965BB1234701EC7EB3A1E6C895FFA46390E78D77DAC3A1946B24EC1A59768EAC38DD114CD4E98E3947E3C0C07812931A185FC3A45F9C35BC8E75C61248D61D47FAD8EBEFE311A78B377F61DDBD4F01795E7FCBF0D5CDF0E93F7A4E7FEA69FE74B2F9BCB7F9BCAFF9B3A9E6CF669B8D7CF305417B21A0BD18D4528B27DB96804FDA1E7CD2167E11D0D6496A514B05B51716B41704D044CAA07F7E0AECCE18BDC6F63BD62F17E8BFB090273B5F3FE20E1D3B317AECC4D8B193E34093D6D3A49D6CD27A1B4FF91A5B661A5BF88696B986B342836EA141176C3807DC7F3E8BDFB906D116AC9F151A5BFCA086344FF9401F1B7932A6CDE726FAED3CE4D9F1BA9E1B5CD4D43B35F52E4DFDB0A6DEAD393AAE69043C64D324D9E4259BEE90C767AA8FF3EAE382FA2320A0FE28F87C16BE73455BB00E90BF9D229B7C58D3A3699C402E47C734F523E0FB9BA6E1BFF6FA21CF2B3967587B5051CD294887821C54902E0539524EBACBC9F1B29A09A2D643D47A89DA3B44DD2C51C713757EA24EC8A0394C1D3DA4CA00F5F77630737891276AA7885A1F517B8BA8F1941DBE594E8E818B821CC68EE0EB30FF19FD3E2F679D61BE5C9095DB65150027AB70C87EED92294764CA5199725CA6F4C8945E99D227AB9A2AACE20B557EA94AC800A6A1CD03B55A4D6DEB64C60A5573852A5E5635030A586A52A69CC0CA6E997218798123F2B57FDE330B797EBAF3ECDF7A0392A23E49914D52DC2F29E62425836F97B8DE2E751F281D13131362F92DB1FCB6B86C5A5CC68BCBFCE232214355150AB0BC79B6D5F0BA3939871767C5F229B1DC2B263CE2D29BA00CFAE0222919408EE05B64375D9E863C3F813CD7020507AF171CB41514D90B8AB882A2C10345AE03C56E71F198A8784254724B54EA15954E894A7951A95F542A3CA5B212458A3D7BA003FD2D63737871062B7845251E51F14D50067D7029287214BC77A3E03DF0B5993E9F823C3FDB75AE975990123629D12F95DF90CA07A472D7BBF2E177CB47DF29FF4A52FEB544715B52E19354CC482AFC920A415211D88A4A852225370FD4D07976661E2FF258C127514C4ACA3DA00CFAE022953BB12327256E7474CD401E29D1EE997CA8374E6366F5C6BBFAD6395DEBBCAE35A06B5DD45D5CD25D0CE9A8B08E5AD6510F755414137FCAC7C73B21C3C6E6811A3A5B0632F30FF13A10426AA009CA487F5E6F14F446BFDEC8EB8D3303CE0790E7A0E2D22D6FD4D8C663FCC636C1D81E30B407314B864B21C3A5B0A163D9D0113174C40C1D71CC6A863FFCAE0B02FCEFD9031DE86FCE64E663781D082335A409CA41C3A505A3296034094693DF68E28746C290A7A4B2C3772766BAEC375D164C9DF3A6CE80A9EB5E5BD7625BD712D515A2BABFA1BA97A9EE87547794EAFE27D5BDDA8A4802277EDFBD35CCB61A5EF1580256F0621413C16ADF505D0F401F5C4C9DF74C9D0BC8F4B2E01E5D813C4AB29BE713E6AB8BE6ABF7CD579710963066C56C89982D31B3256EB6ACF658923D96548F65ED0B4B3AC3B6002D27AF6CEB64C67A1029BC9E4052341035D31133BD6CA6C1E581D9B284B9EFF91AFD3F55D75D991792F4B525FA5A88BE16A67B8115BA37425BA3B4358E4962D62CD6B4C5FAC8625DB7583700DDE99EA77FFDA0FEDE0E0656D234224533499A49D04C1C03FAE0B24C5B33A6A1DBB7E390A7E6C32BF78229E67A18B3C25C8F307D51A62FC6F4C599BE84D596B4DA52565B1A615FB7DA377A118F9F0FBCFE6BEBD58A80C547563B28AC59ED4980B125185B9CB1C51836CAB011865D61D8F0F47412F27C70B4E7FE62DA7623B249D4C6C5594482E5922C97621D69CC3AEBD8C03C7E4136D8810CEBEC409A1D58631DA099641DABAC236EE362360E1C23C0DDBB28CF9163E67F2CA51D83118433E670C53109872BC921D298479C6BA31FF1B8DFF56DBFEBDFCFE7DBEDD7A1C7FD431B1C629D1B7AC40DA5B9A1356E28E940AC3A86E20857CCE18C08F329C8D3F0F19FFEFB833990E7CDBDD93F1C20CFFF010A417406]
   link(onClick,7239228:onEvent1,[(263,48)(263,27)])
  }
  Add(BitBtn,16095644,182,84)
  {
   Left=350
   Width=25
   Align=3
   Caption=""
   Bitmap=[ZIP2606000078DACDD2BF4E83501406F0E3A04FE0A00FA0717033F101DC9D342EAEC66770F601BAA80FD0B5B48D2E3A28589D9C6821696BB5424189404530DE8A568D1E6E08958B12FF30F8E5779693EFDEE426776E7E7204686671A670C671467186608CEEBD6148646579312BF04C5CDF563301C4540D71DF100FFE0EEEAEDAEAC9EE67F67E0A1CBDD53ADE4ED8F905E8769AF54A31AEB4B1BEB6BAB490020B58A3CA11E86A4D59E03E28226C9FA5060BB4590A1D06C0EA3424BE407111AC2AA9C182C417434228B8ABC6171858BDA449BE2EDAD7782E200C80AD9DCA953203AB264DF09694FD510C90DB6BF35C6460D5A3090E0FF6D5D8BE5D6540CFB56C456260F58D26F9C6686F2B32031E3CDBD1EA8CE8CC57C182A33718D0272E312F18DFB98B580A03FA3DCFBFD119F9CD5CFA5FCD6FE57C4767C0EBE3FD936B64E2DFDEF5925D60667A222BF00E2D816BFA]
   link(onClick,3426675:doNext,[])
  }
  Add(BitBtn,10408237,182,126)
  {
   Left=320
   Width=27
   Align=3
   Caption=""
   Bitmap=[ZIP1E06000078DA95D3BB4EC26014C0711CF4019C4C4C9C7D021FC0DDC44B74D1C449E36D31318E0EEAE0E2628C6FA058F092788B175AD44450046C0B550B525AA440410A0A8A97410F55C957684A39F97D4B73BE7F9A266DEF68693029D306A7154E339C463875A626E579A2DE5431F92477B0BA3C373D32D4DF89E81A460DA0BAF5417374B077696186A52E0BA9F09B14FA55D0C66948A2C2009A2B8B7372888C5344CC7B24BA0F1147A2A7E4589B177502648E866680740AAEC3B06307B15BE42CD953DBD791643DD0141857E07C8B3DDDF8B7C99EA1B6CA9D97D946C56EAFA019BB77FB098CC1D7191C2B22FECC4F4D0CF7F5E88005C6BE5126C238A129DEBA689B99B6ADAB61702BAA3BB040E316849526ACBCEF029AD13B17653357822BB2EEC00285630A4B09EF7328CD6BD2B68630FF822BDFBA030B248E91B8051556DE5364DD3461A9343B39A6FF3D6727C769FB267DAA22F82FA1F92CF189805BCD930856E5D5948D73D0CCA522C9D0CD3FD200EA0FA7E145128AFF7B5A4CF33E853F2D54C5E8CBA51EA1F9FE2CE5E3C17CE2C1805055EF59099A9FB9A7C213AF26D42852F2F19282E6D7ABFC21470DC96812515FF9B4D166C650B086A6B11ADAFC01257C918F]
   link(onClick,467654:doNext,[])
  }
  Add(Image,7129841,49,35)
  {
   Width=20
   Align=1
   Picture=[ZIPE604000078DA73F27DC6C200066640AC01C42250CCC8200116DF009547067F6FEF1C4510445E684074EDD9B78724ED10C5E72F9C073288D78B6C1732498C2FCE21D9052445454531F51614163062D37EEAEC6964BD06060640B2B4A2043909E1D27BF0F0416E6E6EB8DECAEA2A4929A9376FDE00D58B8A8932313101C509EA05DA3873F6CC53674E47C746878687F805F8797879888989B1B3B1CBCAC9E2D21B181CF8E6ED9BCAAACA8CECF4A4944464BDD636D6EAEAEA22C22258F5EED9BB77C9B2A5400F56545760EA7575739D346992A5A5A5A99929D6A0066A04A2BCA23C4CBD10ED04233A1F9B5E929265526A1244EF30CBA40078CA5312]
  }
  Add(Counter,3426675,224,84)
  {
   Max=1
   Default=1
   link(onNext,7239228:onEvent2,[(270,90)(270,34)])
  }
  Add(Counter,467654,224,126)
  {
   Max=1
   Default=1
   link(onNext,7239228:onEvent3,[(277,132)(277,41)])
  }
END_SDK
Add(WinTools,14826416,182,182)
{
 Point(doMinimize)
 Point(doMaximize)
 Point(doNormal)
 link(Handle,2953706:Handle,[])
}
Add(IndexToChanel,16013305,119,189)
{
 link(onEvent1,12357058:doWork1,[(158,195)])
 link(onEvent2,14826416:doNormal,[(172,202)(172,230)])
}
Add(IndexToChanel,6652637,119,224)
{
 link(onEvent1,12357058:doWork3,[(158,230)])
 link(onEvent2,14826416:doMaximize,[(165,237)(165,223)])
}
Add(HubEx,12357058,154,210)
{
 link(onEvent,14826416:doMinimize,[])
}
карма: 19

0
Ответов: 28
Рейтинг: 0
#3: 2017-10-26 18:07:57 ЛС | профиль | цитата
Леонид, сейчас не много доработал вашу схему и вот что получилось:

Add(MainForm,2953706,336,280)
{
 Width=200
 Height=157
 Caption="dp37"
 link(onCreate,904385:doTimer,[(376,300)(376,286)])
}
Add(Edit,6971620,434,231)
{
 Left=20
 Top=20
 Text=""
 ClearAfterEnter=1
 Point(doSetFocus)
 link(onEnter,8628451:doSetFocus,[])
}
Add(Edit,8628451,490,224)
{
 Left=105
 Top=20
 Text=""
 ClearAfterEnter=1
 Point(doSetFocus)
 link(onEnter,11481151:doCompare,[(540,237)(540,293)])
}
Add(If_else,1067263,434,280)
{
 Op2=String()
 link(onTrue,4174898:doEvent2,[(475,286)(475,399)(366,399)(366,391)])
 link(onFalse,14454197:doCompare,[])
 link(Op1,9451376:Var2,[])
}
Add(If_else,14454197,490,287)
{
 Op2=String()
 link(onTrue,4174898:doEvent1,[(537,293)(537,406)(360,406)(360,384)])
 link(onFalse,5404748:doWork2,[(528,300)(528,329)(324,329)(324,349)])
 link(Op1,577027:Var2,[])
}
Add(BitBtn,12411045,385,329)
{
 Left=65
 Top=70
 Point(doEnabled)
 Point(doSetFocus)
 link(onClick,12341493:doEvent2,[(436,335)(436,356)])
}
Add(ChanelToIndex,5404748,336,336)
{
 link(onIndex,12411045:doEnabled,[])
}
Add(Hub,4174898,378,378)
{
 InCount=2
 OutCount=1
 link(onEvent1,5404748:doWork1,[(414,384)(414,372)(315,372)(315,342)])
}
Add(Message,16032472,497,343)
{
 Message="привет"
 Caption="привет"
}
Add(Timer,904385,385,280)
{
 Interval=100
 link(onTimer,1067263:doCompare,[])
}
Add(Hub,12341493,455,343)
{
 InCount=2
 OutCount=1
 link(onEvent1,16032472:doMessage,[])
}
Add(If_else,11481151,553,287)
{
 Op2=String()
 link(onFalse,12045239:doCompare,[])
 link(Op1,9451376:Var3,[(559,271)])
}
Add(If_else,12045239,595,294)
{
 Op2=String()
 link(onFalse,12341493:doEvent1,[(637,307)(637,337)(443,337)(443,349)])
 link(Op1,577027:Var3,[(601,264)])
}
Add(GetDataEx,9451376,434,266)
{
 link(Data,6971620:Text,[])
}
Add(GetDataEx,577027,490,259)
{
 link(Data,8628451:Text,[])
}
На счёт п. №2 хотелось бы без добавления панели.
Большое спасибо в любом случае

Редактировалось 5 раз(а), последний 2017-10-26 19:18:13
карма: 0

0
Ответов: 28
Рейтинг: 0
#4: 2017-10-26 19:13:00 ЛС | профиль | цитата
Если кому то интересно, вот решение п. №2

Add(MainForm,10096595,301,476)
{
 Left=20
 Top=105
 Width=333
 Height=296
 Font=[Arial,8,0,0,1]
 Caption="привет"
 DragForm=0
 Point(Close)
 link(Close,2664858:Close,[])
}
Add(MultiElementEx,2664858,301,413)
{
 link(onClose2,1753683:doShowModal,[])
}
BEGIN_SDK
  Add(EditMultiEx,3227754,7,7)
  {
   @Color=0
   EventCount=#56:onClose2=Событие, происходящие всегда при нажатии на "Х"|
   VarCount=#5:Close|
   Width=510
   Height=319
   link(Close,7614840:GetData,[(13,289)(328,289)])
  }
  Add(EventFromData,7614840,322,231)
  {
   link(onEvent,13851802:doEvent1,[(366,237)(366,164)(149,164)(149,139)])
  }
  Add(Hub,13851802,161,133)
  {
   InCount=2
   OutCount=3
   link(onEvent1,5528982:doData,[(182,139)(182,237)])
   link(onEvent2,9279505:doOn,[])
   link(onEvent3,9717076:doTimer,[(219,153)(219,184)])
  }
  Add(DoData,5528982,238,231)
  {
   Data=Integer(1)
   link(onEventData,7614840:doData,[])
  }
  Add(Switch,9279505,315,126)
  {
   Point(onOn)
   Point(doOn)
   link(onOn,3227754:onClose2,[(485,139)(485,13)])
  }
  Add(Timer,9717076,234,178)
  {
   Enable=1
   AutoStop=1
   Point(onStop)
   link(onStop,9279505:doReset,[(287,191)(287,139)])
  }
END_SDK
Add(ChildFormEx,1753683,371,413)
{
 link(onClick,10096595:doClose,[(416,419)(416,462)(289,462)(289,503)])
}
BEGIN_SDK
  Add(EditMultiEx,13796334,49,35)
  {
   WorkCount=#11:doShowModal|
   EventCount=#7:onClick|
   link(doShowModal,16408475:doShowModal,[(123,41)(123,125)])
  }
  Add(MainForm,16408475,210,91)
  {
   Left=35
   Top=105
   Width=199
   Height=100
   Visible=1
   Caption="всё трудное просто"
   Position=1
   Point(doShowModal)
  }
  Add(Button,10844555,126,168)
  {
   Left=95
   Top=20
   Caption="отмена"
   Data=Integer(1)
   link(onClick,16408475:doClose,[(188,174)(188,118)])
  }
  Add(Button,15468611,210,168)
  {
   Left=25
   Top=20
   Caption="выйти"
   Data=Integer(1)
   link(onClick,13796334:onClick,[(296,174)(296,41)])
  }
END_SDK

Редактировалось 1 раз(а), последний 2017-10-26 19:13:13
карма: 0

0
Ответов: 5227
Рейтинг: 586
#5: 2017-10-26 19:24:17 ЛС | профиль | цитата
Леонид, у тебя случаем домино не любимая игра Там частенько бывает что кто-то шлёпая последней у него костяшкой по столу кричит РЫБА!!!

Редактировалось 1 раз(а), последний 2017-10-26 19:25:22
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 8887
Рейтинг: 823
#6: 2017-10-26 22:06:49 ЛС | профиль | цитата
andrestudio,
Флуд
Как-то, в прежние времена, страдал стрессом от работы, нагрузка была, даже паяльник, с которым всю жизнь запросто отвлекался, не помогал И тут военкомат призвал меня в числе местных резервистов на двухнедельные сборы с отъездом. Коллеги отрывались по полной. Зная меня то в шахматами соблазняли, то пулькой. Нет, говорю, кроме домино ни на что не способен! Ставлю жопка к жопке, отдыхаю не думая. Отстали от меня и с домино, ругались правда. Зато домой приехал как огурчик. И уже лет сорок с тех пор костяшек не брал
карма: 19

0
6
ФорумыПомощь по пакетуEnter и Close ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика