WindowProc einer Klasse?

[TriphunEM]

Hallo,

ich weiß nicht wie ich den folgenden Code ergänzen soll um die Windows-Botschaften einer Klasse einer Komponente abzufangen!
Der Code funktioniert wenn ich die eigentliche Komponente nehme (siehe Kommentare). Da aber die Klasse scheinbar ein eigenes Fensterhandle hat, komm ich so nicht ran.

Die Klasse heißt TTBToolbar !

Delphi-Quellcode:

private
  OldProgressWndProc: TWndMethod;
  procedure ProgressWndProc(var Msg: TMessage);
...
procedure TForm1.FormCreate(Sender: TObject);
var Index: integer;
begin
  // OldProgressWndProc:=TBToolbar1.WindowProc;
  // TBToolbar1.WindowProc:=ProgressWndProc;
  OldProgressWndProc:= ???
  ???:=ProgressWndProc;
end;

procedure TForm1.ProgressWndProc(var Msg: TMessage);
begin
  if msg.Msg = WM_RBUTTONDOWN then
  begin
    // Hier soll meine Aktion ausgeführt werden.
  end;
  OldProgressWndProc (Msg);
end;

Vielen Dank im voraus...

[retnyg]

SetWindowLong

democode siehe Size Grip // suche scheint nicht zu funktionieren: http://www.delphipraxis.net/internal...ca28132447e449

btw: progress heisst "fortschritt"

[TriphunEM]

von SetWindowLong hab ich auch schon gehört, aber wie ich das anwenden soll hab ich keine ahnung!

Was ich nicht verstehe, der Code von Size Grip was hat das mit meinem Problem zu tun. ich finde da garnix was mir weiterhilft!

?

thx

[retnyg]

mit setwindowlong kannste die adresse der wndproc überschreiben, also deinen eignen handler aufrufen

[TriphunEM]

puuhh, seh aber noch ne wie das geht. könntest du das oben in meinem code irgendwie verdeutlichen????

[retnyg]

Delphi-Quellcode:

// code ist aus flocke's sizegrip unit ausgeliehen, thx nochma :P
type
  TWndProc = function (hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

var
  OldWndProc: TWndProc;

function NewWndProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

  function CallOld: LRESULT;
  begin
    Result := CallWindowProc(@OldWndProc, hWnd, Msg, wParam, lParam);
  end;

begin
  // Result := DefWindowProc(hWnd, Msg, wParam, lParam); // standardWndProc aufrufen

  case Msg of
    WM_DESTROY: begin
      SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@OldWndProc));
      result := callold;
    end;

    WM_PAINT: Begin
      // dein code ^.^
    end;

    else
      Result := CallOld;
  end;
end;

procedure RemoveMsgHook(hWnd: HWND);
begin
  if @OldWndProc <> nil then
    SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@OldWndProc));
end;

procedure SetMsgHook(hWnd: HWND);
begin
  RemoveMsgHook(hWnd);
  OldWndProc := TWndProc(Pointer(GetWindowLong(hWnd, GWL_WNDPROC)));
  SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@NewWndProc));
end;

[NeoXan]

Ich habe 2 Fehler...

#1
SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@NewWndProc)); Kommt bei mir der Fehler, dass eine Variable erwartet wird, und bei...

#2
Result := CallWindowProc(OldWndProc, hWnd, Msg, wParam, lParam); ...sagt er mir, dass nicht genügend Paramter vorhanden sind?

[retnyg]

ich hatte ein @ vergessen, habs nun korrigiert... probier nochma

[NeoXan]

yo, kompiliert...aber klappen tut es nicht ganz (Was nicht heißt, dass du etwas falsch gemacht hast)

Ich habe:
SetWindowLong(WindowHandle, GWL_WNDPROC,LongInt(@NewWndProc)); und bei NewWndProc steht
ShowMessage('Message'); nach Begin, jedoch wird anscheinend die Funktion NewWndProc nie aufgerufen...
WindowHandle wird wie folgt gefunden:
FindWindow( PChar(ClassName), nil); ...wobei ClassName natürlich der Klassenname ist...

Gibt es eine Möglichkeit, wie man überprüfen kann, ob alles richtig gesetzt wurde oder ähnliches.

vielen Dank
Florian

[marabu]

Die Gültigkeitsprüfung für deinen Fenstergriff hast du schon gemacht - dann kannst du noch mit SetWindowText() probeweise die Form.Caption verändern um zu sehen, ob du das richtige Fenster erwischt hast.

Grüße vom marabu