Klassenmethode in einem Event aufrufen.

[Uwe Raabe]

Du musst irgendwie an die TkzScreenShot-Instanz ran kommen. Da du diese aber ja mit SetWindowLongPtr beim Fensterhandle ablegst, sollte das lösbar sein.

[KodeZwerg]

Zitat von Uwe Raabe:

Du musst irgendwie an die TkzScreenShot-Instanz ran kommen. Da du diese aber ja mit SetWindowLongPtr beim Fensterhandle ablegst, sollte das lösbar sein.

Ich werde daraus gerade nicht schlau aber vielleicht bin ja nicht total auf dem Holzweg, ich versuche gleich mal PostMessage() und hab ein Event in der Klasse, so hoffe ich jedenfalls

[Uwe Raabe]

Na ja, mit SetWindowLongPtr(Result, 0, NativeInt(Self)) speicherst du die Instanz im Windows-Handle. Dann kannst du sie auch über GetWindowLongPtr(fWnd, 0) wieder herausholen:

Delphi-Quellcode:

function MsgWndProc(fWnd: HWND; fMsg: UINT; fWParam: WPARAM; fLParam: LPARAM): LRESULT; stdcall;
begin
  Result := 0;
  if (fWParam = kzHotkeyID) then
  begin
    MessageBox(0, 'Hotkey', 'Hotkey', MB_OK); // nur um zu sehen ob ich im Hotkey bin
    TkzScreenShot(GetWindowLongPtr(fWnd, 0)).Shot;
    Result := 1;
  end
  else
    Result := DefWindowProc(fWnd, fMsg, fWParam, fLParam);
end;

[KodeZwerg]

Vielen Dank Uwe, mit einer 0 hatte es nicht geklappt aber bei "GWL_USERDATA" klappt alles wie es sollte.

Danke danke!

[KodeZwerg]

Ps: so sieht es nun in meiner Klasse aus: SetWindowLongPtr(fHiddenWnd, GWL_USERDATA, NativeInt(Self));

Delphi-Quellcode:

function HiddenProc(AWnd: HWND; AMsg: UINT; AWParam: WPARAM; ALParam: LPARAM): LRESULT; stdcall;
var
  Shot: TkzScreenShot;
begin
  Result := 0;
  case AMsg of
    WM_HOTKEY: case AWParam of
                 kzHotkeyID: begin
                               Shot := TkzScreenShot(GetWindowLongPtr(AWnd, GWL_USERDATA));
                               if Assigned(Shot) then
                                 Shot.Shot;
                               Result := 1;
                             end;
               end;
  end;
  if (Result = 0) then
    Result := DefWindowProc(AWnd, AMsg, AWParam, ALParam);
end;

Vielen Dank Peter und Uwe!