XProfan

Español

Jörg
Sellmeyer

 $H Windows.ph
Var i% = 1
Cls
Var g& = Create("GroupBox",%hwnd,$ProfVer,10,10,300,130)
Var s& = Create("SpinEdit",%hwnd,"0;-100;100",15,36,100,24)
Var s1& = GetHandle(%hwnd,ItemId(s&) + 1)
~BringWindowToTop( s1&)' hier werden die Pfeile sonst verdeckt

While 1

    WaitInput
    i% = Not(i%)
    ShowWindow(s&,i%)' hier werden die Pfeile nicht berücksichtigt

KompilierenMarcaSeparaciónProc DestroySpinEd

    Parámetros hwnd&,Ed&
    DestroyWindow(GetHandle(hwnd&,ItemID(Ed&) + 1))
    DestroyWindow(Ed&)

ENDPROC

Proc ShowSpinEd

    Parámetros hwnd&,Ed&,i%
    ShowWindow(GetHandle(hwnd&,ItemID(Ed&) + 1),i%)
    ShowWindow(Ed&,i%)

ENDPROC

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

14.02.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola Jörg,

una SpinEdit besteht de zwei Dialogelementen (nämlich Editar y Spin). Das heißt: Dass una Editar-Handle S& a una SpinEdit gehört, blanco sólo el Programmierer incluso. Und sólo él weiß, dass lo una weiteres Element con el Handle S&+1 son, dass él auch todavía behandeln muss.

Im XProfan incluso kann Yo como also no viel hacer, como Yo una Handle sí no ansehe, si todavía una zweites son, qué a behandeln wäre.

Saludo
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

14.02.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kann Delphi assoziative Arrays?

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

14.02.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Ok - tal vez könntest Usted %ItemId beim Erstellen uno Spinedits con el zuletzt erstellten Control bestücken, entonces hätte al Handle sin la Rumturnerei con GetHandle() y ItemId().

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

14.02.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita