| |
| |
|
| - Seite 1 - |
|
Erasmus.Herold | Hallöchen ...
Kann ich ein Engabefeld create("edit ... hinsichtlich der
Eingabe beschränken?
Beispielsweise sicherstellen, dass nur Zahlen eingegeben werden können?
Gruß und Dank |
|
| |
| |
| |
|
 |
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
H.Brill | Es gibt auch die API-Konstante ES_NUMBER.
Hilft aber nicht bei Copy und Paste .
Wenn dir das auch genügt :
$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' Schließen (x) berücksichtigen
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. | 29.11.2018 ▲ |
|
| |
|
|
|
H.Brill | Mit Frank Abbings NEdit.dll.
Mit der Message em_LimitText kannst du die Anzahl Zeichen
beschränken.
Über SubClassing kannst du das natürlich auch selber machen. |
|
| |
| 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. | 29.11.2018 ▲ |
|
| |
|
|
Erasmus.Herold | |
| |
| |
| |
|
|
H.Brill | Es gibt auch die API-Konstante ES_NUMBER.
Hilft aber nicht bei Copy und Paste .
Wenn dir das auch genügt :
$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' Schließen (x) berücksichtigen
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. | 29.11.2018 ▲ |
|
| |
|
|
Erasmus.Herold | Sogar noch besser - genial.
Danke an euch beide! |
|
| |
| |
| |
|
(784)
Deutsch
English
Français
Español
Italia