XProfan

Español

Georg
Hovenbitzer

¡Hola zusammen,

Yo sitze veces otra vez a una Problema y ya no vienen.
Yo sería gerne el Notification CBN_SelChange uno Combo Box en uno SubClassProc abfangen.
Bis dato Yo lo siempre con el EasyVENT DLL gemacht, sería esta aber gerne weglassen.
Keine Alternative es dies por Usermessages ~WM_COMMAND a lösen, como Yo dafür a viel umbauen debería.
Alternativ podría uno natürlich una Bucle remendar el después de el Verlassen de Waitinput prüft si el Auswahl se geändert ha.
Mir wäre aber una direkte Möglichkeit más bien.

Wenn alguien Tipp hätte sería Yo mich freuen.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Usted puede el Control unterbrechnungsfrei y sicher con XPSE subclassen por:

Kompilieren Marca Separación

//Natives Subclassing
declarar meinhandle.owp&,meinhandle&
cls
meinhandle&=create(...
meinhandle.owp&=setWindowLong(meinhandle&,gwl_wndProc,procaddr(meinhandle.wndProc,4))
waitinput
end

nProc meinhandle.wndProc

    Parámetros wnd&,msg&,wp&,lp&
    global owp&

    if msg&=CBN_SelChange//wm_command

        ...

    endif

    volver callWindowProc(owp&,wnd&,msg&,wp&,lp&)

ENDPROC

Oder Ventana principal: [...]

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

Hola si,

vielen Dank para la respuesta rápida.
Yo habe lo veces intenta en reinem Profano nachzustellen, sin Erfolg.

Wenn Yo, el Code starte restos alles hängen y uno muss el Task abschießen.
Was mache Yo hier falso ?
P.S.: Lo fehlte FastMode así lo se ejecuta, es aber por desgracia, no el Solución.
Yo No entre en a el Notifikation ran.

Kompilieren Marca Separación

 $H Messages.ph
 $H Windows.ph
Declarar FPArt&, OWProc&

Proc SelChange

    Parámetros Wnd&, Msg&, wParam&, lParam&

    If Msg& = ~CBN_SelChange

        Imprimir @GetText $(FPArt&)

    EndIf

    Volver ~CallWindowProc(OWProc&,Wnd&,Msg&,wParam&,lParam&)

ENDPROC

@Conjunto("FastMode",1)
Ventana de Estilo 2 + 8 + 16 + 128 + 256 + 512
Ventana 0,0-1024,768
FPArt& = @Crear("ChoiceBox",%hWnd,1,100,100,280,150)

WhileLoop 1, 10, 1

    @AddStrings(FPArt&,"Test " + @Str$(&Loop))

EndWhile

OWProc& = ~SetWindowLong(FPArt&,~GWL_WNDPROC,@ProcAddr(SelChange,4))

Sinestar encargado %Key = 2

    WaitInput

EndWhile

End

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hast Usted auch en Conjunto("Fastmode",1) gesetzt?

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

Ist me auch gerade Aufgefallen, dies fehlte.

Aber dies es por desgracia, no el Solución, el Notification CBN_SelChange bewirkt desafortunadamente nichts.
Alguien todavía una Tipp

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg Hovenbitzer, Beitrag=55989, Zeitpunkt=05.02.2010

Hola si,

vielen Dank para la respuesta rápida.
Yo habe lo veces intenta en reinem Profano nachzustellen, sin Erfolg.

Yo Usted ya el Profanste hingeschrieben y una FastMode benötigt lo (para Glück) auch no.

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

Hab el Solución gefunden

Wer el MSDN correcto lesen kann es klar en el vorteil.

Kompilieren Marca Separación

 $H Messages.ph
 $H Windows.ph
Declarar FPArt&, OWProc&

Proc SelChange

    Parámetros Wnd&, Msg&, wParam&, lParam&

    If ((Msg& = ~WM_COMMAND) AND (@HiWord(wParam&) = ~CBN_SelChange))

        Localizar 1,1
        Imprimir @GetText $(FPArt&)

    EndIf

    Volver ~CallWindowProc(OWProc&,Wnd&,Msg&,wParam&,lParam&)

ENDPROC

@Conjunto("FastMode",1)
Ventana de Estilo 2 + 8 + 16 + 128 + 256 + 512
Ventana 0,0-1024,768
FPArt& = @Crear("ChoiceBox",%hWnd,1,100,100,280,150)

WhileLoop 1, 10, 1

    @AddStrings(FPArt&,"Test " + @Str$(&Loop))

EndWhile

OWProc& = ~SetWindowLong(FPArt&,~GWL_WNDPROC,@ProcAddr(SelChange,4))

Sinestar encargado %Key = 2

    WaitInput

EndWhile

End

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Usted es ya klar, dass dieser Code ProcAddr así nutzt, dass el Programa absturzgefährtet es?

Machst Usted aber de Proc SelChange simplemente nProc SelChange, entonces lo 100% sicher y Usted necesidad entonces auch no FastMode mehr.

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Jagolski

So mache Yo el!! Klappt siempre.

Kompilieren Marca Separación

ElseIf SubClassMessage(DesignForm&, ~WM_COMMAND)

Select &sLParam

    CaseOf DlgChoiceBox1&

    If HiWord(&sWParam) = ~CBN_SELCHANGE

        SetMenuItem 5003
        Conjunto("WinProc",0)

    EndIf

    CaseOf Dlg2ChoiceBox1&

    If HiWord(&sWParam) = ~CBN_SELCHANGE

        SetMenuItem 9002
        Conjunto("WinProc",0)

    EndIf

EndSelect

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

05.02.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

Como war Yo a langsam

Lo va auch sin FastMode y SubProc.

Kompilieren Marca Separación

 $H Messages.ph
 $H Windows.ph
Declarar FPArt&, OWProc&

SubClassProc

    If (@SubClassMessage(FPArt&,~WM_COMMAND) AND (@HiWord(&sWParam) = ~CBN_SelChange))

        Localizar 1,1
        Imprimir @GetText $(FPArt&)

    EndIf

ENDPROC

Ventana de Estilo 2 + 8 + 16 + 128 + 256 + 512
Ventana 0,0-1024,768
FPArt& = @Crear("ChoiceBox",%hWnd,1,100,100,280,150)

WhileLoop 1, 10, 1

    @AddStrings(FPArt&,"Test " + @Str$(&Loop))

EndWhile

SubClass FPArt&,1

Sinestar encargado %Key = 2

    WaitInput

EndWhile

SubClass FPArt&,0
End