| |
| |
|
 | Matthias Arlt (15.10.2018)
und dir aussi einfacher, mais seulement, si cela Systemmenü pas komplett entfernt wird... var hDlg& = Créer("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("User32","GetSystemMenu",hDlg&,0)
external("User32","DeleteMenu",hMenu&,$F010,0)
tandis que 1
waitInput
cas (%clé = 2) : pause
Wend
Salut Matthias |
|
| |
| |
| |
|
|
Erasmus.Herold | Könnten wir cet la fenêtre motivieren, à droite dessus
ne...aucune "X" zum Schließen anzuzeigen.
je voudrais sur une Button schließen, somit aussi
ne...aucune "%clé = 2 anbieten?
Habe sur Windowstyle aucun Solution trouvé,
peut-être aussi faux angewendet?!
s'il te plaît une kurze Solution. Dankeschön. |
|
| |
| |
| |
|
|
Matthias
Arlt | Einen 'einfachen' Weg zum Entfernen des Schliessen-Buttons chez ansonsten oui notwendigem Erhalt des Systemmenüs gibt es m.W. pas...
tu dois oui aussi '%key' pas abfragen, si Du cela pas veux. ensuite arrêt mittels Button:
var hDlg& = Créer("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)
tandis que 1
waitInput
'cas (%clé = 2) : pause
cas clicked(hBtn&) : pause
Wend
|
|
| |
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 13.11.2018 ▲ |
|
| |
|
|
Erasmus.Herold | merci pour qui Antwort.
Mir ging es mais um den Ansatz, cela "X" pas anzuzeigen.
qui User croyez ensuite, là könne il la fenêtre schließen.
Soll il mais pas.
c'est pourquoi serait je cela "X" à droite au haut de qui Systemleiste
volontiers ausblenden. |
|
| |
| |
| |
|
|
Peter
Max
Müller | Graut allerdings seulement aus. mais peut-être.....
Def GetSystemMenu(2) !"User32","GetSystemMenu"
' Def DeleteMenu(3) !"User32","DeleteMenu"
Def EnableMenuItem(3) !"User32","EnableMenuItem"
'Def DisableClose(0) Si(DeleteMenu(GetSystemMenu(GetActiveWindow(),0),6,$400),\
'SendMessage(GetActiveWindow(),$86,1,0),0)
' Beispiel
Cls
EnableMenuitem(GetSystemMenu(GetActiveWindow(),0),$F060,1)
' DisableClose()
WaitInput
|
|
| |
| |
| |
|
|
Erasmus.Herold | |
| |
| |
| |
|
(1.121)
Deutsch
English
Français
Español
Italia