XProfan

Def @AHSetClassLong(3) !"User32","SetClassLongA"
Def @AHCreateSolidBrush(1) !"GDI32","CreateSolidBrush"
DEF @AHGetClassLong(2) !"USER32","GetClassLongA"
Settruecolor 1
Declare Dateiname#,Class_Style&,Dialog1&,Dialog2&
Windowstyle 31
Windowtitle "Schließen Button in Dialogen deaktivieren"
Window 0,0-640,440
LET Dialog1&=@CreateDialog(%HWND,"Erster Dialog",30,30,300,300)
LET Class_Style&=AHGetClassLong(Dialog1&,$FFFFFFE6)
LET Class_Style&=Class_Style& | $200
Print @AHSetClassLong(Dialog1&,$FFFFFFE6,Class_Style&)
@SetFocus(%HWND)
@SETFOCUS(Dialog1&)
@CREATETEXT(Dialog1&,"Dieser Dialog wird zuerst mit aktivem Schließen-Button erzeugt, der nach dem Erzeugen abgeschaltet wird!",10,10,280,280)
LET Dialog2&=@CreateDialog(%HWND,"Zweiter Dialog",100,30,300,300)
@CREATETEXT(Dialog2&,"Der Schließen-Button jedes weiteren Dialoges ist von vornherein deaktiviert!",10,10,280,280)

While 0=0

    Waitinput

Wend

SETSTYLE DLG&,SUB(GETSTYLE(DLG&),$80000)

declare d0&,exit&
cls
d0& = CREATE("Dialog",%HWnd,"Dialogfenster ohne Schließen-Button",%MaxX + 10,50,300,200)
SetStyle d0&,Sub(GetStyle(d0&),$80000)
SetFocus(%HWnd)
SetFocus(d0&)
exit& = CREATE("Button",d0&,"Beenden",5,5,100,25)
SetWindowPos d0& = 10,50 - 300,200;0
WaitInput
end