[*]Profan

Kompilieren Markieren Separieren

Bei diesem Beispiel verstehe ich nicht weshalb wParam bei mir immer NULL anzeigt.
Kompilieren Markieren Separieren

 {$cleq}
cls
subClass hWnd,true

do {

    waitinput

}

end

subClassProc{

    if subClassMessage(hWnd,wm_mouseWheel){

        locate 1,1
        print lParam
        print wParam

    }

#0000FF>}

CLS
SUBCLASS %HWND,1

WHILE 1

    WAITINPUT

ENDWHILE

END

SUBCLASSPROC

    IF SUBCLASSMESSAGE(%HWND,522)

        LOCATE 1,1
        PRINT &LPARAM
        PRINT &WPARAM

    ENDIF

endproc

RGH

Bei diesem Beispiel verstehe ich nicht weshalb wParam bei mir immer NULL anzeigt.

Versuche es im &sLParam und &sWParam.

&LParam und &WParam (und all die anderen Systmvariablen, die sich auf Messages beziehen) werden erst in der eigentlichen Fensterprozedur gesetzt.

In der SUBCLASSPROC gelten daher die Systemvariablen &sWnd, %sMessage, &sLParamund &sWParam.

Saluto
Roland

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

Alles klar!

Ist
Kompilieren Markieren Separieren

subClassProc

    select subClassMessage(hWnd2)

        caseOf wm_sizing:

        caseof wm_mouseMove:

    endSelect

possibile?

Alles klar!

Ist
Kompilieren Markieren Separieren

subClassProc

    select subClassMessage(hWnd2)

        caseOf wm_sizing:

        caseof wm_mouseMove:

    endSelect

possibile?

Wäre
Kompilieren Markieren Separieren

subClassProc(long hWnd,msg,wp,lp)
parameters hWnd&,msg&,wp&,lp&

select hWnd&

    caseOf hWnd:

    select msg&

        caseOf wm_sizing:

    endselect

endSelect

endProc

nicht vielleicht noch ein Stück durchdachter?

RGH

iF Wäre Kompilieren Markieren Separieren subClassProc(long hWnd,msg,wp,lp) parameters hWnd&,msg&,wp&,lp& select hWnd& caseOf hWnd: select msg& caseOf wm_sizing: endselect endSelect
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	24.01.2008 ▲ Vollständiges Zitat Absatzweise Citazione Zeilenweise Citazione

Das habe ich geahnt und deshalb so vorsichtig gefragt um jetzt mit der Ideenkeule zu kommen.

(Das mit den Parametern ist einleuchtend.)

Und zwar:

Mit einer kleinen Cambiamento potuto das Ganze noch deutlich präziser und verständlicher geschehen - Du bräuchtest dann vlt. auch kein solch Flag mehr setzen: Kümmere Dich nicht darum die alte wProc aufzurufen - sondern belasse die Entscheidung beim Programmierer. Hierbei ergäben sich nämlich viel mehr Möglichkeiten! Erfinde noch ein Schlüsselwort zum Aufruf der vorherigen/alten wProc welches der Programmierer selbst setzen kann.

Somit müsste durch subClassMessage kein Flag gesetzt werden, der Programmierer entscheidet ob er orignalSubClassProc aufruft - oder nicht. Das wiederum (da es ja possibile fix gehen sollte in der subClassProc) gibt auch die Möglichkeit einer besseren select Struktur, statt eines if-konstruktes.

Übersehe ich dabei etwas?