Message problem

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**

markieren

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?

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

zusammenfalten · markieren

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

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

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

Message problem

Message problem

Re: Message problem

Re: Message problem

Re: Message problem

Re: Message problem

Re: Message problem

Re: Message problem

Re: Message problem

Re: Message problem

Re: Message problem

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.624 Beiträge Delphi 12 Athens	#2 Re: Message problem 13. Jun 2008, 16:25 Kann eine Message denn gleichzeitig WM_MOUSEMOVE und WM_LBUTTONDOWN sein? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#3 Re: Message problem 13. Jun 2008, 16:25 markieren Delphi-Quellcode: if Msg = WM_MOUSEMOVE then begin if (Msg = WM_LBUTTONDOWN) then Msg kann doch nicht beides sein!?! Thomas
	Zitat

Dunkel Registriert seit: 26. Mär 2007 Ort: Klingenstadt 541 Beiträge Delphi 2007 Enterprise	#4 Re: Message problem 13. Jun 2008, 16:26 Msg kann nicht gleichzeitig WM_MOUSEMOVE únd WM_LBUTTONDOWN sein, was bei Deiner momentanen Abfrage aber der Fall sein müsste. Es ist zu wahr um schön zu sein...
	Zitat

1234588 Registriert seit: 14. Jan 2007 Ort: Stuttgart 164 Beiträge	#5 Re: Message problem 13. Jun 2008, 16:31 warum gestaltest du das ganze nicht einfach mit einem case block anstatt if..then..else if?
	Zitat

EWeiss (Gast) n/a Beiträge	#7 Re: Message problem 13. Jun 2008, 16:35 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
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.624 Beiträge Delphi 12 Athens	#8 Re: Message problem 13. Jun 2008, 16:38 Nicht ganz, da case nur einmal prüfen muss und somit performanter ist. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

1234588 Registriert seit: 14. Jan 2007 Ort: Stuttgart 164 Beiträge	#9 Re: Message problem 13. Jun 2008, 16:39 und imho sollte man nur verschachteln wenn noetig
	Zitat

EWeiss (Gast) n/a Beiträge	#10 Re: Message problem 13. Jun 2008, 16:40 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
	Zitat