| |
| |
|
| - page 1 - |
|
Erasmus.Herold | Hallöchen ...
je voudrais un la fenêtre fixieren, alors verhindern, dass es via souris déménagé volonté peux. Diesen Quellcode nutze je zur Erzeugung des Fensters.
verkaeuferfenster_darueber% = Créer("Dialog",%hWnd,"Mitarbeiterverwaltung",28,120,1870,940)
SETSTYLE verkaeuferfenster_darueber%,(GETSTYLE(verkaeuferfenster_darueber%)-$80000)' nouveau la fenêtre sans Button à droite dessus, aussi ne...aucune X
j'ai im Internet vieille idées de 2003 trouvé, qui ließen sich pas erfolgreich dans XProfan3 testen. Hat quelqu'un une Lösungsvorschlag pour mich?
merci - Erasmus |
|
| |
| |
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Matthias
Arlt | 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 |
|
| |
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 15.10.2018 ▲ |
|
| |
|
|
|
Erasmus.Herold | | Hat quelqu'un Erfahrung avec dem "Festkleben" de Windows? |
|
| |
| |
| |
|
|
H.Brill | cela dauerhafte Fixieren habe je aussi encore pas herausgefunden.
seulement, qui es toujours wieder à qui Ursprungs - Position springt.
chez einem normalen la fenêtre ist es oui simple. simple qui wm_move
Message comme UserMessage définir. cela wm_move mets chez Größen-
Changement qui vieille Position + Taille.
comment cela mais chez einem Dialog aller soll, sais je pas. cette
empfängt qui nouvelle oui déjà gar pas. |
|
| |
| 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 | allô Erasmus,
schaumal ici, so mach je es toujours si je une Dialog brauche qui pas déménagé volonté soll.
chez "ProgPfad$" deinen Pfad angeben wohin cela Bild gespeichert ist.
chez mir ist cela Bild dans einer DLL.
je hoffe tu peux avec cela quoi anfangen.
Salut
PROC Benutzer_anmelden
DECLARE AnmeldenDLG&, AnmeldenENDE%,STATICBITMAP1&
Déclarer Benutzer%, Pwort%, Esc%, OK%
Proc Textausgabe
Début de peinture STATICBITMAP1&
Couleur du texte RGB(15,15,31),-1
DrawText 20, 100, "Benutzer:"
DrawText 20, 130, "Passwort:"
EndPaint
ENDPROC
Fenêtre Style 16 + 64
AnmeldenDLG& = Créer("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
Créer("BITMAP",AnmeldenDLG&,STATICBITMAP1&,0000,0000)
Benutzer% = create("Edit",AnmeldenDLG&, »,90,100,90,20)
Pwort% = create("Edit",AnmeldenDLG&, »,90,130,90,-20)
Esc% = Créer("Button",AnmeldenDLG&,"Abbruch",050,220,70,25)
OK% = Créer("Button",AnmeldenDLG&,"Anmelden",160,220,70,25)
SETFOCUS(Benutzer%)
AnmeldenENDE% = 0
WHILENOT AnmeldenENDE%
WAITINPUT
Si 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 appel!
|
 |
| |
| 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 | 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 |
|
| |
| WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia | 15.10.2018 ▲ |
|
| |
|
|
Erasmus.Herold | Wow - entier lieben Dank à euch alle pour qui vielen Tipps.
cette Ansatz était kurz et simple.
Dankeschön !!! |
|
| |
| |
| |
|
|
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. |
|
| |
| |
| |
|
|
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 | merci pour deine Antwort.
Irgendwie finde je pas den richtigen Ansatz, deinen Vorschlag einzubauen.
Bisher erstelle je mon la fenêtre comment folgt.
var hDlg& = Créer("Dialog",%hWnd,"Test",100,100,400,300)
var hMenu& = external("User32","GetSystemMenu",hDlg&,0)
external("User32","DeleteMenu",hMenu&,$F010,0)
s'il te plaît un court Tipp. |
|
| |
| |
| |
|
|
E.T. | Entfernt pas entier, mais deaktiviert 
var hDlg& = Créer("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)
tandis que 1
waitInput
cas (%clé = 2) : pause
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 | |
| |
| |
| |
|
(520)
Deutsch
English
Français
Español
Italia