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

[DeddyH]

Niemand will Dir vorschreiben, was Du tun sollst, das waren doch nur gutgemeinte Hinweise.

[EWeiss]

Zitat:

Zitat von DeddyH

Niemand will Dir vorschreiben, was Du tun sollst, das waren doch nur gutgemeinte Hinweise.

Nicht in den falschen Hals bekommen.
Es ist doch berechtig zu fragen welchen unterschied das macht bsp.. in micro sekunden.
Wenn man etwas ändert und es keine große auswirkungen hat
wo liegt dann der sinn, wenn man es dann ändert ?

gruss Emil

[turboPASCAL]

Ich würde es Übersichtlicher nennen, die Schreibfaulheit kommt dann auch mehr nicht zu kurtz mit "case". ;)

[EWeiss]

Zitat:

Zitat von turboPASCAL

Ich würde es Übersichtlicher nennen, die Schreibfaulheit kommt dann auch mehr nicht zu kurtz mit "case". ;)

Das kann ich aktzeptiern ;)
man sieht schneller wo der anfang und das ende ist.

gruss Emil

PS: Danke an alle für die Information

[EWeiss]

Mein anderes problem ist nun folgendes

Delphi-Quellcode:

function VisualProc(WndHandle : HWND;
                    Msg : DWORD; wParam, lParam : Longint): longInt;

begin

    Case Msg of
      WM_MOUSEMOVE:
      begin

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

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

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

        BbpPluginFunc(BassBoxInfo^);
      end;
      WM_LBUTTONUP:
      begin
        BassBoxInfo^.Msg    := BBP_MOUSE;
        BassBoxInfo^.WinMsg := Msg ;
        BassBoxInfo^.wParam := wParam;
        BassBoxInfo^.lParam := lParam;

        BbpPluginFunc(BassBoxInfo^);
      end;
      WM_LBUTTONDBLCLK:
      begin
        //
      end;
    end;
    result := DefWindowProc(WndHandle, Msg, wParam, lParam);

end;

Dadurch das ich nun das Handle des Panels aus der Exe an die Winproc übergeben habe
geht in der EXE das doppelklick event des Panels nicht mehr da dieses nun in die Winproc umgeleitet wird
Wie kann ich nun hier "WM_LBUTTONDBLCLK:" eine Function einbauen so dass mein Panel
in der Exe trotzdem noch erkennt das ein doppelklick ausgeführt wurde?

Ich benötige das um in den FullScreen starten zu können.
das geht nun leider nicht mehr.

gruss Emil