MouseEnter/MouseLeave ohne VCL!

[rey003]

Hallo Leute,
ich hab ein Problem mit den oben genannten Funktionen! Oder besser gesagt, es gibt diese Funktionen ja leider ohne VCL gar nicht! Ich habe mir eine eigene Komponente für NonVCL geschrieben, die wie eine Art Button funktionieren soll! Dieser "Button" soll jetzt auf MouseEnter und MouseLeave reagieren!
Bis jetzt hab ich es so gemacht, weil ich es nicht besser wusste:

MouseMove-Nachicht des Hauptfensters (wo die Komponente drauf sitzt)!

Delphi-Quellcode:

var
  Target       : HWND = 0;
  FMouseTarget : HWND = 0;
...
   
   WM_MOUSEMOVE:
    begin
      if (GetCursorPos(point)) then
        begin
          Target := WindowFromPoint(point);
          ScreenToClient(Target, point);
          Target := ChildWindowFromPoint(Target, point);
          if (FMouseTarget = hwnd_Main) and (Target <> hwnd_Main)
           then sendmessage(Target,WM_DSMOUSEENTER,0,0);
          if (FMouseTarget <> hwnd_Main) and (Target = hwnd_Main )
           then sendmessage(FMouseTarget,WM_DSMOUSELEAVE,0,0);
          FMouseTarget := Target;
        end;
    end;

Da das nur gilt wenn sich die Mouse auf dem Fenster befindet und nicht wenn die Mouse über der Komponente ist, hab ich bei der Komponente einfach nur das reingeschrieben:

Delphi-Quellcode:

  WM_MOUSEMOVE:
    begin
     //nicht wichtig 
      if Assigned(config^.FOnMouseMove)
       then config^.FOnMouseMove(config^.MainWnd,LOWORD(lParam),HIWORD(lParam));
     //das aber 
      sendmessage(GetParent(config^.MainWnd),WM_MOUSEMOVE,0,0);
    end;

Ich weiß das ist nicht grade sauber programmiert, aber mir fiel nichts besseres ein!
Nun hab ich aber leider festgestellt, dass das nun nicht mal immer funktioniert!
Sobald die Mouse zu schnell ist, kommt es zu einer Verzögerung und es funktioniert nicht mehr! (besonders bei MouseLeave)
So jetzt zu meiner Frage:
Wie würdet ihr sowas realisieren???
Ich hoffe ihr könnt mir helfen! Schon mal danke im Voraus!

[ste_ett]

WM_MOUSELEAVE


-edit-

Sry, verlesen

[rey003]

WM_MouseLeave is ja eh so ein Teil was ich noch net ganz verstehe!
Das funktioniert ja überhaupt nicht! (zumindest nicht bei mir)

[Namenloser]

Delphi-Quellcode:

procedure MouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure MouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

Hat bei meiner Button-Komponente hervorragend funktioniert!

[rey003]

Mag sein... Ich hab aber keine VCL und damit kann ich die Nachichten der VCL auch nicht wirklich verwenden!

[jbg]

Du könntest WM_MOUSEMOVE und WM_MOUSELEAVE (Win98+) kombinieren.

[rey003]

Hmm... Ich hab ja versucht WM_MOUSELEAVE zu benutzen! Aber irgendwie funktioniert das überhaupt nicht!
Das Fenster reagiert auf die Nachicht gar nicht! Oder ich weiß gar nicht ob sie überhaupt geschickt wird! Muss man dafür erst vorher irgendetwas anderes ausführen um das zu aktivieren?

Ich habe auch schon mal nachgesehen wie das in der VCL gemacht wird (die müssen das ja auch irgendwie hinbekommen haben), aber das habe ich nicht wirklich verstanden!
Und das was ich mir ausgedacht hatte erfüllt seinen Zweck nur sehr unzuverlässig!

[jbg]

Zitat von rey003:

Ich habe auch schon mal nachgesehen wie das in der VCL gemacht wird (die müssen das ja auch irgendwie hinbekommen haben)

Das funktioniert anders, da das schon zu Windows 3.1 (Delphi 1) Zeiten funktionieren musste. Dort wird in der Leerlauf-Zeit (Idle) die Mausposition abgefragt und das darunter liegende Control ermittelt. Unterscheidet sich dies vom vorher ermittelten Control, so wird für das alte ein CM_MOUSELEAVE und für das neue Control ein CM_MOUSEENTER ausgelöst.

Schon mal ins PSDK geschaut? Da würdest du alle Informationen finden, die du zum Nutzen von WM_MOUSELEAVE brachst. Aber da Weihnachten noch nicht so lange her ist, bin ich mal so nett und poste hier den Code:

Delphi-Quellcode:

var
  EventTrack: TTrackMouseEvent;
begin
  case Msg of
    WM_MOUSELEAVE:
      begin
        WindowHover := False;
        SetWindowText(Handle, 'Left');
      end;
    WM_MOUSEMOVE:
      begin
        if not WindowHover then
        begin
          WindowHover := True;
          SetWindowText(Handle, 'Entered');

          { WM_MOUSELEAVE soll generiert werden }
          EventTrack.cbSize := SizeOf(EventTrack);
          EventTrack.dwFlags := TME_LEAVE;
          EventTrack.hwndTrack := Handle;
          EventTrack.dwHoverTime := HOVER_DEFAULT;
          TrackMouseEvent(EventTrack);
        end;
      end;
    ...
  end;
end;

[rey003]

Reingeschaut schon! Aber ich glaub nicht wirklich verstanden!
Sooooviel hab ich mit NonVCL auch noch nicht gemacht! Bin noch am Lernen!

Funktioniert perfekt! (Genauso wie der Start von Delphi!)

Und ich hab auch wieder was dazu gelernt!
Also danke nochmal und schon mal einen guten Rutsch!

[Luckie]

Ich versuche das auch gerade:

Delphi-Quellcode:

    WM_MOUSELEAVE:
      begin
        WindowHover := False;
        LinkFont := CreateFont(LINKFONTSIZE, 0, 0, 0, 400, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
          CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, LINKFONTNAME);
        if LinkFont <> 0 then
          SendDlgItemMessage(hDlg, ID_STC_WEB, WM_SETFONT, Integer(LinkFont), Integer(true));
      end;
    WM_MOUSEMOVE:
      begin
        GetCursorPos(pt);
        GetWindowRect(GetDlgItem(hDlg, ID_STC_WEB), rect);
        if PtInRect(rect, pt) then
        begin
          begin
            WindowHover := True;
            LinkFont := CreateFont(LINKFONTSIZE, 0, 0, 0, 400, 0, 1, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
              CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, LINKFONTNAME);
            if LinkFont <> 0 then
              SendDlgItemMessage(hDlg, ID_STC_WEB, WM_SETFONT, Integer(LinkFont), Integer(true));
            EventTrack.cbSize := SizeOf(EventTrack);
            EventTrack.dwFlags := TME_LEAVE;
            EventTrack.hwndTrack := GetDlgItem(hDlg, ID_STC_WEB);
            EventTrack.dwHoverTime := HOVER_DEFAULT;
            TrackMouseEvent(EventTrack);
          end;
        end;

ID_STC_WEB ist ein Static Kontrol. Aber ich bekomme keine WM_MOUSELEAVE Nachricht.