XProfan

Español

Torsten
Rümker

kann Yo sí una beliebiges Element deaktivieren oder reaktivieren.
Aber como erfahre Yo si una Element gerade aktiv oder inaktiv es?

Yo podría me natürlich simplemente una variable redactar, que genau el merkt, pero muss doch auch eleganter ir oder?

MfG
Torsten

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

08.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Klar gehts einfacher! ws_disabled es sí una windowstyle. Schau después de getstyle

Und entonces gibts como todavía gwl_userdata - así kannst Usted en Controls una Largo verstecken...

08.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

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

Ungetested

08.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Shit Thomas war más rápido - Pero, por supuesto Thomas lo va así:
Kompilieren Marca Separación

 $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