XProfan

Deutsch

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

Gruß Matthias

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

19.10.2018 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Erasmus.Herold

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

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

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

Bitte eine kurze Lösung. Dankeschön.

13.11.2018 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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

Erasmus.Herold

Danke für 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 zitieren Zeilenweise zitieren

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