Re: Dialoge schliessen


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

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



Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]