XProfan

Español

Pedro
Santos

¡Hola Profaner

Gibt lo una Windowstyle wo el Ventana sólo Vergrößerungsbox (Pfeil después de oben) y Verkleinerungsbox (Pfeil después de unten) ha?

Gracias

Gruss

Pedro

Windows XP Home
Xprofan 10

12.03.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Pedro
¿Te ha algo como ?
Kompilieren Marca Separación

---------------------------------------------------
Def GetSystemMenu(2) !"USER32","GetSystemMenu"
Def EnableMenuItem(3) !"USER32","EnableMenuItem"
DECLARE EE%,ende%
EE%=0
Window 100,50-600,400
EnableMenuitem(GetSystemMenu(GetActiveWindow(),0),$F060,1)
ende%=CREATE("BUTTON",%HWND,"ENDE",10,10,100,25)

WhileNot EE%

    WAITINPUT
    Case GetFocus(ende%):END

12.03.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Pedro
Santos

¡Hola Horst

Gracias algo como mi Yo aber sin el copyright de RGH

Gruss

Pedro

Windows XP Home
Xprofan 10

12.03.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jens
Petzold

Def Getsystemmenu(2) !USER32,GetSystemMenu
Def Enablemenuitem(3) !USER32,EnableMenuItem
WINDOWSTYLE 27
WINDOWTITLE Mein Ventana
Ventana 100,50-600,400
Enablemenuitem(Getsystemmenu(Getactivewindow(),0),$F060,1)
Waitinput

Der Jens war's gewesen. [...]