Deutsch
Quelltexte/ Codesnippets

Dialog Fenster Fixieren

 
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
 
vor 30 Tagen  
 




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.
 
vor 5 Tagen  
 




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:
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 - Profan 10/FreeProfan32 - Xpia
vor 5 Tagen  
 




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.
 
vor 4 Tagen  
 




Peter
Max
Müller
Graut allerdings nur aus. Aber vielleicht.....
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
 
XProfan X3
XProfan X3, X4ß, Win 10.1
vor 4 Tagen  
 




Erasmus.Herold
Dankeschön. Das ist prima.
 
Vorgestern (06:05)  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

161 Betrachtungen

Unbenanntvor 0 min.
WalterGestern (20:18)
RudiB.Gestern (19:35)
Paul GlatzGestern (16:50)
Uwe LangGestern (10:06)
Mehr...

Themeninformationen



AGB  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Impressum  |  Mart  |  Support  |  Suche

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie