XProfan

Français

Torsten
Rümker

peux je oui un beliebiges Element désactiver ou bien reaktivieren.
mais comment erfahre je si un Element justement aktiv ou bien inaktiv ist?

je pourrait mir naturellement simple une variable erstellen, qui sich oui c'est ca cela merkt, mais es muss doch aussi eleganter aller ou bien?

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

08.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

bien sûr gehts einfacher! ws_disabled ist oui un windowstyle. exposition pour getstyle

et ensuite gibts là encore gwl_userdata - avec cela peux Du dans Controls un Long verstecken...

08.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

!Def IsEnabled(1) !"user32.dll", "IsWindowEnabled"

Ungetested

08.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Shit Thomas était plus rapide - mais oui Thomas und dir avec cela:
Kompilieren Marque Séparation

 $P+
SetErrorLevel 0
Def IsWindowEnabled(1) !"USER32","IsWindowEnabled"
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.5
DATUM  08.11.2006    um  22:46 Uhr
VERWENDETE PROFANVERSION IST 10.0ß-NT S13 XPROFAN
CODE ERSTELLT UNTER UNBEKANNTER WINDOWSVERSION
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE BUTTON1&
DECLARE BUTTON2&
DECLARE BUTTON3&
DECLARE EDIT1&
DECLARE EDIT2&
DECLARE EDIT3&
WINDOWSTYLE 63
WINDOWTITLE "Enabled?"
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
BUTTON1& = CREATE("BUTTON",%HWND,"BUTTON",0023,0033,0070,0030)
BUTTON2& = CREATE("BUTTON",%HWND,"BUTTON",0023,0073,0070,0030)
BUTTON3& = CREATE("BUTTON",%HWND,"BUTTON",0022,0113,0070,0030)
EDIT1& = CREATE("EDIT",%HWND,"EDIT",0112,0033,0120,0020)
EDIT2& = CREATE("EDIT",%HWND,"EDIT",0113,0061,0120,0020)
EDIT3& = CREATE("EDIT",%HWND,"EDIT",0115,0094,0120,0020)
enablewindow Button2&,0
enablewindow Edit2&,0
Print IsWindowEnabled(Edit2&)
print IsWindowEnabled(Button2&)
Print IsWindowEnabled(Edit1&)
print IsWindowEnabled(Button3&)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

    ELSEIF GETFOCUS(BUTTON2&) BUTTON

    ELSEIF GETFOCUS(BUTTON3&) BUTTON

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ELSEIF GETFOCUS(EDIT2&) EDIT

    ELSEIF GETFOCUS(EDIT3&) EDIT

    ENDIF

4 href='./../../references-fonction/XProfan/Wend/'>WEND