Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249249 (10685)
  Suchen
 Zurück zur Übersicht
 AutorThema: Eingabeprobs...
Wirges Dieter
Datum:14.01.02 21:32 Antwortenals Email verschicken (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



Jörg Sellmeyer
Datum:14.01.02 22:34 Antwortenals Email verschicken (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


Dieter
Datum: 15.01.02 10:02 Antwortenals Email verschicken (Wirges@nevcom.de) 


Hallo Jörg,
besten Dank... Werde ich gleich mal testen!

Tschuessi,

Dieter


 Zurück zur Übersicht