Autor | Thema: Eingabeprobs... | | Datum:14.01.02 21:32 
(Wirges@nevcom.de) | |
Hallo...
ich habe da ein kleines Problem mit einer Eingaberoutine...
Und zwar möchte ich 4 Editierfelder (createEdit) anzeigen lassen. Mit Hilfe von vier Radiobuttons sollen diese Editierfelder einzeln deaktiviert werden.
Also z.B. das in Feld 2 keine Eingabe mehr möglich ist. Ohne diese Radiobuttons klappt das auch ganz hervorragend mit 'Sendmessage'. Ich kriegs aber nicht hin, das dies über Radiobuttons gesteuert werden kann.
Für Hinweise oder einen kleinen Demoquelltext waer ich sehr dankbar.
Tschuessi,
Dieter
|
| | Datum:14.01.02 22:34 
(joerse@gmx.de) | |
Hallo,
declare edit1&,edit2&,edit3&,edit4&
declare radio1&,radio2&,radio3&,radio4&
declare ende%
cls
Edit1&=createEdit(%hwnd,"test",10,10,100,20)
Edit2&=createEdit(%hwnd,"test",10,40,100,20)
radio1&=CreateRadiobutton(%hwnd,"test",10,70,100,20)
radio2&=CreateRadiobutton(%hwnd,"test",10,100,100,20)
Whilenot ende%
waitinput
if getfocus(radio1&)
enablewindow edit1&,getcheck(radio1&)
enablewindow edit2&,not(getcheck(radio1&))
'... alle anderen einschalten
elseif getfocus(radio2&)
enablewindow edit1&,not(getcheck(radio2&))
enablewindow edit2&,getcheck(radio2&)
'...
'elseif -Hier noch die übrigen Abfragen
Endif
Wend
So geht's.
Jörg
|
| | Datum: 15.01.02 10:02 
(Wirges@nevcom.de) | |
Hallo Jörg,
besten Dank... Werde ich gleich mal testen!
Tschuessi,
Dieter
|
|
|