XProfan

Julian
Schmidt

la hâte du es déjà sur Messages probiert?

WM_LBUTTONDOWN = $0201;
WM_LBUTTONUP = $0202;
WM_LBUTTONDBLCLK = $0203;
WM_RBUTTONDOWN = $0204;
WM_RBUTTONUP = $0205;
WM_RBUTTONDBLCLK = $0206;
WM_MBUTTONDOWN = $0207;
WM_MBUTTONUP = $0208;
WM_MBUTTONDBLCLK = $0209;

cela allez entweder per Usermessages ou bien aussi per Subclassing.

Pour letzteres ici un Beispiel:
Kompilieren Marque Séparation

 $H Messages.ph
Declare Handle fenster, Status
Declare Memory L
Dim L, 4' für Statuswindow (nur 1 Feld)
Long L, 0 = -1

SubClassProc

    If SubClassMessage(fenster, ~WM_RBUTTONDOWN)' rechte Maustaste

        SetMenuItem 2000

    ElseIf SubClassMessage(fenster, ~WM_LBUTTONDOWN)' Linke Maustaste

        SetMenuItem 2001

    ElseIf SubClassMessage(fenster, ~WM_MBUTTONDOWN)' Mittlere Maustaste

        SetMenuItem 2002

    EndIf

EndProc

WindowStyle 512 + 8' Dialogstil + Systemmenü
fenster   = Create("Window", %HWnd, "Mein Fenster", 100, 50, 800, 400)
Status    = @Create("StatusWindow", fenster,"", 1,L)
SubClass fenster, 1

While 1

    Waitinput
    Case %Key = 2 : Break' Schließen-Kreuz gedrückt.

    If MenuItem(2000)

        SetText Status, 0, "Rechte Maustaste"

    ElseIf MenuItem(2001)

        SetText Status, 0, "Linke Maustaste"

    ElseIf MenuItem(2002)

        SetText Status, 0, "Mittlere Maustaste"

    EndIf

Wend

SubClass fenster, 0
Dispose L
./../funcion-referencias/XProfan/end/'>Fin

XProfan X2
Windows 8.1 Pro, AMD FX(tm)-8350 Eight-Core Processor, 16365,20 MB
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

maroro

oui Utilisateur Messages aller pas mais j'ai eh bien doch une Solution trouvé.
oui Subclassing pourrait peut-être. aussi aller ist mais im comparaison trop meiner
aktuellen Solution très aufwendig.
Irgendwie blickt on ensuite besser par si on es la fois geschrieben hat.

qui Solution ist %notifycode qui chez mir -16 auswirft si je à gauche drücke.
Im normal liegt il chez -121 et déjà peux on quoi auswerten.

H.Brill

maroro (12.06.14)

qu'est-ce que c'est car pour une Titelzeile einer Gridbox ?
qui Gridboxen, qui je connais, avons Spaltenbuttons.
Avez- du cet ?

ensuite wären qui LVM_ - Messages intéressant.
z.B.
LVM_GETHEADER = ~LVM_FIRST + 31;

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.