XProfan

Español

Matthias Arlt (15.10.2018)

Lo va auch einfacher, aber sólo, si el Systemmenü no komplett lejos se...

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

mientras que 1

    waitInput
    caso (%key = 2) : romper

wend

Saludo Matthias

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

19.10.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Erasmus.Herold

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

Yo möchte encima una Button schließen, somit auch
kein "%key = 2 anbieten?

Posesiones encima Windowstyle no Solución gefunden,
tal vez auch falso angewendet?!

Bitte una kurze Solución. Dankeschön.

13.11.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Matthias
Arlt

Einen 'einfachen' Weg para Entfernen des Schliessen-Buttons en ansonsten sí notwendigem Erhalt des Systemmenüs hay m.W. no...
Usted mußt en efecto '%key' no abfragen, si el no willst. Dann sólo mittels Button:

Kompilieren Marca Separación

var hDlg& = Crear("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)

mientras que 1

    waitInput
    'caso (%key = 2) : romper
    caso clicked(hBtn&) : romper

wend

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

13.11.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Erasmus.Herold

Gracias para el Antwort.

Mir ging lo aber en el Ansatz, el "X" no anzuzeigen.
Der User glaubt entonces, hay könne él el Ventana schließen.
Soll él pero no.

Deshalb sería Yo el "X" rechts oben en el Systemleiste
gerne ausblenden.

14.11.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Peter
Max
Müller

Graut allerdings sólo de. Aber tal vez.....

Kompilieren Marca Separación

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