| |
|
|
- Page 1 - |
|
Erasmus.Herold | Hallöchen ...
can I one Engabefeld create("edit ... with respect to the input limit?
in example ensuring, that only numbers association go can?
Greeting and Thanks |
|
|
| |
|
|
|
« this Posting watts as Solution marked. » |
|
H.Brill | there's too The API-Constant ES_NUMBER. helps but not copy and paste . If you the too sufficient :
$H windows.ph
Declare Dlg&, edit1&, Text1&, ende&, in$
Dlg& = Create("Dialog", %Hwnd, "Test-Edit", 200, 190, 300, 200)
edit1& = Create("Edit", Dlg&, "", 20, 20, 120, 25)
text1& = Create("Text", Dlg&, "", 20, 60, 120, 25)
ende& = Create("Button",Dlg&, "Ende", 20, 100, 60, 25)
SETSTYLE edit1&, GETSTYLE(edit1&) | ~ES_NUMBER
SetFocus(edit1&)
WhileNot @Clicked(ende&)
WaitInput
If %Key = 2' Closing (x) respect
Break
EndIf
EndWhile
End
|
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 11/29/18 ▲ |
|
|
|
|
|
H.Brill | with Frank Abbings NEdit.dll.
with the Message em_LimitText can you The amount characters limit.
About SubClassing can you the naturally too yourself make. |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 11/29/18 ▲ |
|
|
|
|
Erasmus.Herold | |
|
| |
|
|
|
H.Brill | there's too The API-Constant ES_NUMBER. helps but not copy and paste . If you the too sufficient :
$H windows.ph
Declare Dlg&, edit1&, Text1&, ende&, in$
Dlg& = Create("Dialog", %Hwnd, "Test-Edit", 200, 190, 300, 200)
edit1& = Create("Edit", Dlg&, "", 20, 20, 120, 25)
text1& = Create("Text", Dlg&, "", 20, 60, 120, 25)
ende& = Create("Button",Dlg&, "Ende", 20, 100, 60, 25)
SETSTYLE edit1&, GETSTYLE(edit1&) | ~ES_NUMBER
SetFocus(edit1&)
WhileNot @Clicked(ende&)
WaitInput
If %Key = 2' Closing (x) respect
Break
EndIf
EndWhile
End
|
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 11/29/18 ▲ |
|
|
|
|
Erasmus.Herold | even yet rather - genial.
thanks on you both! |
|
|
| |
|
|