Alle Stringgadgets ausfüllen

[Scream]

Hallo,
ich habe vor das in einem fenster der benutzer alle stringgadgets ausfüllen muss, bevor er in dem programm weiterarbeiten kann. Das ganze soll einer benutzerstellung dienen.....
Ich hoffe jemand kann mir helfen......

Mfg
Scream

[Konne]

Was ist denn jetzt genau die Frage???

[Kiffi]

Ich hoffe jemand kann mir helfen......

wir können Dir besser helfen, wenn Du Dein Problem detaillierter (evtl. mit
Codeschnippseln) erläuterst.

Ich ahne zwar, was Du meinst, bin aber nicht gewillt, nun eine Lösung zu
posten, die evtl. nicht zutrifft.

Grüße ... Kiffi

[Scream]

okay war schlecht gestellt
also in einem fenster, soll der benutzer beispielsweise name straße und ort in verschiedene stringgagdgets eintragen. Diese Angaben sollen nun irgendwo gespeichert werden.
Nun habe ich aber das Problem das der Benutzer z.B. nur den Namen einträgt und dann auf speichern klickt.
Ich will aber das er alle Daten einträgt, und das nur dann die Daten gespeichert werden.
Im Grunde genommen brauche ich eine Abfrage die nachschaut ob alle felder ausgefüllt sind.
Ich hoffe es ist nun einigermaßen verständlich....

Mfg
Scream

[Kiffi]

> Ich hoffe es ist nun einigermaßen verständlich....

joh, ist schon besser

OK, Du bastelst Dir eine Prozedur namens CheckSaveButton():

Code: Alles auswählen

Procedure CheckSaveButton()
  
  If GetGadgetText(#txtName)<>"" And GetGadgetText(#txtStrasse)<>"" And GetGadgetText(#txtOrt)<>""
    DisableGadget(#cmdSave,0)
  Else
    DisableGadget(#cmdSave,1)
  EndIf
  
EndProcedure

den Aufruf dieser Prozedur packst Du in der Event-Schleife dort hinein, wo
der Inhalt der StringGadgets verändern werden:

Code: Alles auswählen

Repeat
  
  WWE = WaitWindowEvent()
  EGI = EventGadgetID()
  
  Select WWE
    
    Case #PB_Event_Gadget
      Select EGI
        Case #txtName
          CheckSaveButton()
        Case #txtStrasse
          CheckSaveButton()
        Case #txtOrt
          CheckSaveButton()
      EndSelect
      
  EndSelect
  
Until WWE = #PB_Event_CloseWindow

Soweit alles klar?

Grüße ... Kiffi

[Scream]

genial.....vielen vielen Dank
So schnell, und so genial.....
Ich bin echt baff......

Thx
Scream

[Konne]

Lol, sooo genial ist dass jetzt auch net:)
Später wirst du so ein Problem eher belächeln