Von Wolfgang Meyer am 23 Februar, 1998 um 20:51:41:
Antwort auf: Dialoge schliessen von Hotte am 20 Februar, 1998 um 09:24:26:
: Hi!
: Wie kommt es eigentlich, daß Dialogfenster in Profan
: immer nur beim ersten Mal mit ESC geschlossen werden
: können?
: Beispiel:
: Proc Dialog
: ....
: Let _Dlg%=CreateDialog(%HWnd,"xyz",10,10,100,100)
: WhileNot _End%
: WaitInput
: If @equ(%Key,2)
: Let _End%=1
: EndIf
: WEnd
: @DestroyWindow(_Dlg%)
: ....
: EndProc
: Nur beim ersten Mal kann ich ESC betätigen, um dieses
: Dialogfenster wieder zu schließen. Rufe ich diese Prozedur
: ein zweites Mal auf, klappt es nicht mehr.
: Was mu0 ich tun, damit das in Profan funktioniert?
: Vielen Dank im Voraus,
: Hotte
Hallo Hotte,
so wie das Beispiel aussieht, hat Du vergessen,
vor der While-Schleife End auf Null zu setzen.
Let _Dlg%=CreateDialog(%HWnd,"xyz",10,10,100,100)
Let _End%=0
: WhileNot _End%
: WaitInput
.....
Das ist aber erforderlich, sonst ist beim 2. Aufruf
_End%=1 und kann somit in der While-Schleife nicht
mehr funktionieren.
Ich hoffe, ich konnte Dir weiterhelfen!
Gruß
Wolfgang