Message problem

[EWeiss]

warum komme ich nicht in diese Message ?
LBUTTONDOWN !

Delphi-Quellcode:

function VisualProc(WndHandle : HWND;
                    Msg : DWORD; wParam, lParam : Longint): longInt; stdcall;
var
  ps : PAINTSTRUCT;

begin

    if Msg = WM_ERASEBKGND then
      begin
        Result := 1;
        exit;
      end else
      if Msg = WM_MOUSEMOVE then
      begin
        if (Msg = WM_LBUTTONDOWN) then
          if (GetFocus <> WndHandle) then
            SetFocus(WndHandle);

        BassBoxInfo^.Msg    := BBP_MOUSE;
        BassBoxInfo^.WinMsg := Msg ;
        BassBoxInfo^.wParam := wParam;
        BassBoxInfo^.lParam := lParam;

        BbpPluginFunc(BassBoxInfo^);
      end else

      if Msg = WM_PAINT then
      begin
        BeginPaint(WndHandle, ps);
        EndPaint(WndHandle, ps);
        Result := 0;
        Exit;
      end;
    result := DefWindowProc(WndHandle, Msg, wParam, lParam);

end;

hinter WM_LBUTTONDOWN komme ich bei WM_MOUSEMOVE hinein
Fokus ist auch vorhanden.

gruss Emil

[DeddyH]

Kann eine Message denn gleichzeitig WM_MOUSEMOVE und WM_LBUTTONDOWN sein?

[toms]

Delphi-Quellcode:

      if Msg = WM_MOUSEMOVE then 
      begin 
        if (Msg = WM_LBUTTONDOWN) then

Msg kann doch nicht beides sein!?!

[Dunkel]

Msg kann nicht gleichzeitig WM_MOUSEMOVE únd WM_LBUTTONDOWN sein, was bei Deiner momentanen Abfrage aber der Fall sein müsste.

[1234588]

warum gestaltest du das ganze nicht einfach mit einem case block anstatt if..then..else if?

[EWeiss]

Zitat:

Zitat von Dunkel

Msg kann nicht gleichzeitig WM_MOUSEMOVE únd WM_LBUTTONDOWN sein, was bei Deiner momentanen Abfrage aber der Fall sein müsste.

hmmm wo hat mich da das Pferd getreten .. richtig
danke ;)

habs geändert

Delphi-Quellcode:

function VisualProc(WndHandle : HWND;
                    Msg : DWORD; wParam, lParam : Longint): longInt; stdcall;
var
  ps : PAINTSTRUCT;

begin

    if Msg = WM_ERASEBKGND then
      begin
        Result := 1;
        exit;
      end else
      if Msg = WM_MOUSEMOVE then
      begin

        BassBoxInfo^.Msg    := BBP_MOUSE;
        BassBoxInfo^.WinMsg := Msg ;
        BassBoxInfo^.wParam := wParam;
        BassBoxInfo^.lParam := lParam;

        BbpPluginFunc(BassBoxInfo^);
      end else
      if (Msg = WM_LBUTTONDOWN) then
      begin
        if (GetFocus <> WndHandle) then
          SetFocus(WndHandle);

        BassBoxInfo^.WinMsg := Msg ;
        BassBoxInfo^.wParam := wParam;
        BassBoxInfo^.lParam := lParam;

        BbpPluginFunc(BassBoxInfo^);
      end;
      if Msg = WM_PAINT then
      begin
        BeginPaint(WndHandle, ps);
        EndPaint(WndHandle, ps);
        Result := 0;
        Exit;
      end;
    result := DefWindowProc(WndHandle, Msg, wParam, lParam);

end;

gruss Emil

[EWeiss]

Zitat:

Zitat von 1234588

warum gestaltest du das ganze nicht einfach mit einem case block anstatt if..then..else if?

Ist Ansichtssache hat keinerlei auswirkung auf die ausgeführte aktion
beides das gleiche.

gruss Emil

[DeddyH]

Nicht ganz, da case nur einmal prüfen muss und somit performanter ist.

[1234588]

und imho sollte man nur verschachteln wenn noetig

[EWeiss]

Zitat:

Zitat von DeddyH

Nicht ganz, da case nur einmal prüfen muss und somit performanter ist.

Kann es ändern aber was macht das aus ? in micro sekunden ?

gruss Emil