| |
| |
|
| - Page 1 - |
|
Erasmus.Herold | Hallöchen ...
Ich möchte ein Fenster fixieren, also verhindern, dass es via Maus verschoben werden kann. Diesen Quellcode nutze ich zur Erzeugung des Fensters.
verkaeuferfenster_darueber% = Create("Dialog",%hWnd,"Mitarbeiterverwaltung",28,120,1870,940)
SETSTYLE verkaeuferfenster_darueber%,(GETSTYLE(verkaeuferfenster_darueber%)-$80000)' neues Fenster ohne Button rechts oben, auch kein X
Ich habe im Internet alte Ideen von 2003 gefunden, die ließen sich nicht erfolgreich in XProfan3 testen. Hat jemand einen Lösungsvorschlag per mich?
Danke - Erasmus |
|
| |
| |
| |
|
 |
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
Matthias
Arlt | 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 |
|
| |
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 15.10.2018 ▲ |
|
| |
|
|
|
Erasmus.Herold | | Hat jemand Erfahrung mit dem "Festkleben" von Fenstern? |
|
| |
| |
| |
|
|
H.Brill | Das dauerhafte Fixieren habe ich auch noch nicht herausgefunden.
Nur, daß es immer wieder an die Ursprungs - Position springt.
Bei einem normalen Fenster ist es ja einfach. Einfach die wm_move
Message als UserMessage definieren. Das wm_move setzt bei Größen-
Cambiamento die alte Position + Dimensione.
Wie das aber bei einem Dialog gehen soll, weiß ich nicht. Dieser
empfängt die Nachricht ja schon gar nicht. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 15.10.2018 ▲ |
|
| |
|
|
Manfred
Barei | Hallo Erasmus,
schaumal hier, so mach ich es immer wenn ich einen Dialog brauche der nicht verschoben werden soll.
Bei "ProgPfad$" deinen Pfad angeben wo das Bild gespeichert ist.
Bei mir ist das Bild in einer DLL.
Ich hoffe Du kannst damit was anfangen.
Saluto
PROC Benutzer_anmelden
DECLARE AnmeldenDLG&, AnmeldenENDE%,STATICBITMAP1&
Declare Benutzer%, Pwort%, Esc%, OK%
Proc Textausgabe
StartPaint STATICBITMAP1&
TextColor RGB(15,15,31),-1
DrawText 20, 100, "Benutzer:"
DrawText 20, 130, "Passwort:"
EndPaint
EndProc
WindowStyle 16 + 64
AnmeldenDLG& = Create("Window",%HWND,"Login",(%maxx/2 - 280/2),(%maxy/2 - 280/2),280,280)
USEFONT "MS Sans Serif",13,0,0,0,0
STATICBITMAP1& = CREATE("HPIC",-1,ProgPfad$ + "\BMP\LOGIN.BMP")
Textausgabe
Create("BITMAP",AnmeldenDLG&,STATICBITMAP1&,0000,0000)
Benutzer% = create("Edit",AnmeldenDLG&, "",90,100,90,20)
Pwort% = create("Edit",AnmeldenDLG&, "",90,130,90,-20)
Esc% = Create("Button",AnmeldenDLG&,"Abbruch",050,220,70,25)
OK% = Create("Button",AnmeldenDLG&,"Anmelden",160,220,70,25)
SETFOCUS(Benutzer%)
AnmeldenENDE% = 0
WHILENOT AnmeldenENDE%
WAITINPUT
If Clicked(Esc%)
AnmeldenENDE% = 1
ENDIF
EndWHILE
DESTROYWINDOW(AnmeldenDLG&)
EndProc
WINDOWTITLE "DUMMY HAUPTFENSTER"
WINDOWSTYLE 63
WINDOW (%maxx-300),10-280,80
CLS RGB(0,0,0)
Color 10,0
PRINT "Bitte aufs Systemmenükreuz klicken "
Benutzer_anmelden'Dialog aufrufen!
|
 |
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 15.10.2018 ▲ |
|
| |
|
|
Matthias
Arlt | 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 |
|
| |
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 15.10.2018 ▲ |
|
| |
|
|
Erasmus.Herold | Wow - ganz lieben Dank an euch alle per die vielen Tipps.
Dieser Ansatz war kurz und einfach.
Dankeschön !!! |
|
| |
| |
| |
|
|
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. |
|
| |
| |
| |
|
|
E.T. | |
| |
| XProfan X3Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 13.11.2018 ▲ |
|
| |
|
|
Erasmus.Herold | Danke per deine Antwort.
Irgendwie finde ich nicht den richtigen Ansatz, deinen Vorschlag einzubauen.
Bisher erstelle ich mein Fenster wie folgt.
var hDlg& = Create("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
external("USER32","DeleteMenu",hMenu&,$F010,0)
Bitte ein kurzer Tipp. |
|
| |
| |
| |
|
|
E.T. | Entfernt nicht ganz, aber deaktiviert 
var hDlg& = Create("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("USER32","GetSystemMenu",hDlg&,0)
Def GetSystemMenu(2) !"USER32","GetSystemMenu"
Def EnableMenuItem(3) !"USER32","EnableMenuItem"
external("USER32","DeleteMenu",hMenu&,$F010,0)
EnableMenuitem(GetSystemMenu(hDlg&,0),$F060,1)
while 1
waitInput
case (%key = 2) : break
wend
|
|
| |
| XProfan X3Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 14.11.2018 ▲ |
|
| |
|
|
Erasmus.Herold | | Dankeschön. Das ist prima. |
|
| |
| |
| |
|
(327)
Deutsch
English
Français
Español
Italia