XProfan

Italia

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 Io l' entweder das [X] abfragen oder speeren?

Saluto Thomas

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

27.10.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Probiere mal per mWnd zu unterscheiden.

27.10.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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

if %key==2 {

    select getActiveWindow()

        caseof hDlg

        showWindow(hDlg,false)

    endSelect

font>

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

27.10.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Klaus
Müller

Ja gut das %key=2 brachte den durchbruch Kompilieren Markieren Separieren While e%=0 WaitInput If %key=2 DestroyWindow(Dialog&) EndIf
XProfan X4; Win10 x64 Der Kuchen ist eine lüge!	27.10.2008 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

Dieter
Zornow

Für diesen Zweck gibt es seit XProfan 11 die Systemvariable &UWnd Ist zwar in der Aiuto 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 Citazione Zeilenweise Citazione

Ah, uWnd, genau!

28.10.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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

28.10.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

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 per 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 Citazione Zeilenweise Citazione

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