Messagen Subclassen

[EWeiss]

Hab noch ein problem mit der Magnetic Unit
Mich nervt das ich innerhalb der anwendung Messagen aus der WinProc extra an die Unit schicken muss.
Hat jemand eine ahnung wie ich es bewerkstelligen kann WM_ Messagen der Subclass hinzuzufügen
ohne sie aus der Anwendung übergeben zu müssen ?

Ich möchte als Beispiel WM_ENTERSIZEMOVE von der Anwendung an die Subclass übergeben
das dieses erkennt wenn die Message aufgrufen wird.
Im moment geht es nur wenn ich aus der Anwendung selbst diese übergebe

Delphi-Quellcode:

MagneticWndProc(MainWindow(0), WM_ENTERSIZEMOVE, Msg, dummyHandled);

Sinnvoller wäre es diese hier zu addieren sobald das Window addiert wird.

Delphi-Quellcode:

function TMagnetic.AddWindow(Handle: HWND; hWndParent: HWND; var FuncPointer : TSubClass_Proc): Boolean;
begin
  Subclass_AddMsg(Handle, WM_ENTERSIZEMOVE) //<<<<
end;

Hoffe jemand versteht was ich meine.

gruss Emil

[EWeiss]

Sorry ich Pushe
Vielleicht schaut doch noch jemand in den thread ;)

Habe eine möglichkeit gefunden die Messagen zu hooken innerhalb der Anwendung.
das problem ist nun das nur noch die Hauptform andockt an den SubFormen..
müßte da noch ne möglichkeit schaffen die Messagen zu enumerieren.

Ich erstelle eine ObjectInstance

Delphi-Quellcode:

        if AppHandle = 0 then
        begin
          AppHandle := Handle;

          FClientInstance := MakeObjectInstance(ClientWndProc);

          FPrevClientProc := Pointer(GetWindowLong(Handle, GWL_WNDPROC));
          SetWindowLong(Handle, GWL_WNDPROC, Integer(FClientInstance));
        end;

und leite die Messsagen auf die Original Winproc um.

Delphi-Quellcode:

procedure TMagnetic.ClientWndProc(var Message: TMessage);

begin
  with Message do
  begin
    case Msg of
      WM_ENTERSIZEMOVE:
        zSubclass_Proc(AppHandle, integer(Msg), Message.WParam, Message.LParam, Message.Result, dummyHandled);
      WM_SIZING:
        zSubclass_Proc(AppHandle, integer(Msg), Message.WParam, Message.LParam, Message.Result, bHandled);
      WM_SYSCOMMAND:
        zSubclass_Proc(AppHandle, integer(Msg), Message.WParam, Message.LParam, Message.Result, dummyHandled);
      WM_MOVE:
        zSubclass_Proc(AppHandle, integer(Msg), Message.WParam, Message.LParam, Message.Result, dummyHandled);
      WM_EXITSIZEMOVE:
        zSubclass_Proc(AppHandle, integer(Msg), Message.WParam, Message.LParam, Message.Result, dummyHandled);
      WM_WINDOWPOSCHANGING:
        zSubclass_Proc(AppHandle, integer(Msg), Message.WParam, Message.LParam, Message.Result, dummyHandled);
      WM_MOVING:
        zSubclass_Proc(AppHandle, integer(Msg), Message.WParam, Message.LParam, Message.Result, bHandled);
      WM_COMMAND:
        zSubclass_Proc(AppHandle, integer(Msg), Message.WParam, Message.LParam, Message.Result, bHandled);
    end;

    if (Result = 0) then
      Result := CallWindowProc(FPrevClientProc, AppHandle, Msg, wParam,
        lParam);
  end;
end;

Geht bestimmt eleganter wenn jemand eine lösung hat dann bitte mitteilen :)
So brauche ich keine eigene Winproc in der anwendung und eine zeile reicht um den Magentic Effekt zu Initialisieren.
Anwendung:

Delphi-Quellcode:

MagneticWnd.AddWindow(Self.Handle, 0, MagneticWndProc);

und das Child

Delphi-Quellcode:

MagneticWnd.AddWindow(frmChild2.Handle, self.Handle, MagneticWndProc)

Gruss Emil