XProfan

English

Matthias Arlt (15.10.2018)

It's all right too plainer, but only, if the System Menu not complete removes becomes...

var hDlg& = Create("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)

while 1

    waitInput
    case (%key = 2) : break

wend

Greeting Matthias

Alle Sprachen
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

10/19/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

could we this Window to motivate, right supra
no "X" to that Closing view.

i want a Button close, accordingly too
no "%key = 2 offer?

have over Windowstyle no Solution found,
Perhaps too wrong applied?!

Please a short Solution. Thank you.

11/13/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Matthias
Arlt

a 'einfachen' lane to that Remove the close-Buttons with otherwise Yes notwendigem Erhalt the Systemmenüs there m.W. not...
you mußt indeed '%key' not inquire, if you not want. then hold through Button:

Compile Mark Separation

var hDlg& = Create("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
var hBtn& = create("BUTTON",hDlg&,"Fertig",10,10,60,25)
external("USER32","DeleteMenu",hMenu&,$F010,0)

while 1

    waitInput
    'case (%key = 2) : break
    case clicked(hBtn&) : break

wend

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

11/13/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

thanks for response.

me went But around the Ansatz, the "X" not view.
The User believes then, there could it the window close.
should it but not.

therefore would I the "X" right supra in the Systemleiste
gladly Hide.

11/14/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Peter
Max
Müller

Graut though only from. but Perhaps.....

Compile Mark Separation

Def GetSystemMenu(2) !"USER32","GetSystemMenu"
' Def DeleteMenu(3) !"USER32","DeleteMenu"
Def EnableMenuItem(3) !"USER32","EnableMenuItem"
'Def DisableClose(0) If(DeleteMenu(GetSystemMenu(GetActiveWindow(),0),6,$400),\
'SendMessage(GetActiveWindow(),$86,1,0),0)
' example
Cls
EnableMenuitem(GetSystemMenu(GetActiveWindow(),0),$F060,1)
' DisableClose()
WaitInput