XProfan

Italia

Matthias Arlt (15.10.2018)

Es geht auch einfacher, aber nur, wenn das Systemmenü nicht komplett entfernt wird...

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

Saluto Matthias

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

19.10.2018 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Erasmus.Herold

Könnten wir dieses Fenster motivieren, rechts oben
kein "X" zum Schließen anzuzeigen.

Ich möchte circa einen Button schließen, somit auch
kein "%key = 2 anbieten?

Habe circa Windowstyle keine Lösung gefunden,
vielleicht auch falsch angewendet?!

Bitte eine kurze Lösung. Dankeschön.

13.11.2018 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Matthias
Arlt

Einen 'einfachen' Weg zum Entfernen des Schliessen-Buttons bei ansonsten ja notwendigem Erhalt des Systemmenüs gibt es m.W. nicht...
Du mußt ja auch '%key' nicht abfragen, wenn Du das nicht willst. Dann halt mittels Button:

Kompilieren Markieren Separieren

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

13.11.2018 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Erasmus.Herold

Danke per die Antwort.

Mir ging es aber um den Ansatz, das "X" nicht anzuzeigen.
Der User glaubt dann, dort könne er das Fenster schließen.
Soll er aber nicht.

Deshalb würde ich das "X" rechts oben in der Systemleiste
gerne ausblenden.

14.11.2018 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Peter
Max
Müller

Graut allerdings nur aus. Aber vielleicht.....

Kompilieren Markieren Separieren

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)
' Beispiel
Cls
EnableMenuitem(GetSystemMenu(GetActiveWindow(),0),$F060,1)
' DisableClose()
WaitInput