XProfan

Deutsch

Klaus
Müller

Bei den Fenstern die man mit Create("Dialog"...) erstellt, hat man im Programm dann doch ober rechts dieses kleine [X] zum schließen. Und wenn man dort draufdrückt beendet sich immer das ganze Prgramm bei mir. Wie kann ich den entweder das [X] abfragen oder speeren?

Gruß Thomas

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

27.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Probiere mal per mWnd zu unterscheiden.

27.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Aber auch so funktionierts zur Zeit z.B. in Gonzo:
Kompilieren Markieren Separieren

if %key==2 {

    select getActiveWindow()

        caseof hDlg

        showWindow(hDlg,false)

    endSelect

}

(ich glaube mWnd war hierfür nicht zuverlässig)

27.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Klaus
Müller

Ja gut das %key=2 brachte den durchbruch
Kompilieren Markieren Separieren

While e%=0

    WaitInput

    If %key=2

        DestroyWindow(Dialog&)

    EndIf

Wend

Danke dann mal!
Gruß Thomas

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

27.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Für diesen Zweck gibt es seit XProfan 11 die Systemvariable &UWnd Ist zwar in der Hilfe sogut wie nicht zu finden, funktioniert aber.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

28.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Ah, uWnd, genau!

28.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

No, uWnd funktioniert "irgendwie" nicht hierfür...

28.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

wie hast du es denn gemacht

Im Hauptfenster

case (%UMessage = 16) and (&uWnd = %Hwnd) funktioniert bei mir

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

29.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Ich vermute mal, Du hast UserMessages 16 eingebaut. &uWnd ist nämlich das Fenster, welches die UserMessages empfängt. Die Systemvariable &uWnd ist also nicht für diesen Zweck geschaffen worden, kann aber dafür verwendet werden

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

29.10.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

So simpel funktioniert es
Kompilieren Markieren Separieren

CLS
USERMESSAGES $0010//wm_close
var L1&=CREATE("window",%HWND,"",10,10,100,100)
var L2&=CREATE("window",%HWND,"",10,110,100,100)

WHILE 1

    WAITINPUT

    IF %UMESSAGE=$0010

        SELECT &UWND

            CASEOF L1&

            PRINT 1

            CASEOF L2&

            PRINT 2

            CASEOF %HWND

            BREAK

        ENDSELECT

    ENDIF

ENDWHILE