Wie wird die botschaft wm_Timer abgefangen in einer klasse ?

[mimi]

leider geht das immer noch nicht so wie ich es habe möcht hier mal etwas code evlt. hilft das um mein problem zu verstehen:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Paint:TPaint;
begin
        
  Paint:=TPaint.Create(Handle);
  Label18.Caption:=IntToStr(Paint.test);
end;

zu testzwekchen wollte ich einfach nur ein variable hochzählen.

Delphi-Quellcode:

procedure MeepCallback(hwnd: HWND; uMsg: Cardinal; idEvent: Pointer; dwTime: DWORD); stdcall;
var
  PaintDingens: TPaint;
begin
  PaintDingens := TPaint(idEvent);
  inc(PaintDingens.test);
  // hier kannst du nun auf das Paint-Objekt zugreifen, das mit Integer(self) übergeben wurde.
end;

constructor TPaint.Create(WinHandle:Hwnd);
begin
  SetTimer(WinHandle, Integer(self), 1000, @MeepCallback);
end; // Create

ich hoffe du siehst jetzt worauf ich hinaus möchte... und warum ich dachte das das mit wm_Timer gehen könnte(Was ürbgins auch nicht geht)