Fórum SetTimer nao aceita funcao membro de objeto #203702

type
  TMyClass = class(TWinControl)
  private
    FTimerProc: Pointer;
    procedure TimerProc(Handle: HWND; uMsg, idEvent, dwTime: DWORD); stdcall;
  protected
    procedure CreateWnd; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

function CreateMethodThunk(const AMethod: TMethod): Pointer;
type
  TCallbackThunk = packed record
    POPEDX: Byte;
    MOVEAX: Byte;
    SelfPtr: Pointer;
    PUSHEAX: Byte;
    PUSHEDX: Byte;
    JMP: Byte;
    JmpOffset: Integer;
  end;
var
  Callback: ^TCallbackThunk;
begin
  New(Callback);
  Callback.POPEDX := $5A;
  Callback.MOVEAX := $B8;
  Callback.SelfPtr := AMethod.Data;
  Callback.PUSHEAX := $50;
  Callback.PUSHEDX := $52;
  Callback.JMP     := $E9;
  Callback.JmpOffset := Integer(AMethod.Code) - Integer(@Callback.JMP) - 5;
  Result := Callback;
end;

{ TMyClass }

constructor TMyClass.Create(AOwner: TComponent);
var
  M: TMethod;
begin
  inherited;

  M.Code := @TMyClass.TimerProc;
  M.Data := Self;
  FTimerProc := CreateMethodThunk(M);
end;

procedure TMyClass.CreateWnd;
begin
  inherited;

  SetTimer(Handle, 0, 5000, FTimerProc);
end;

destructor TMyClass.Destroy;
begin
  Dispose(FTimerProc);

  inherited;
end;

procedure TMyClass.TimerProc(Handle: HWND; uMsg, idEvent, dwTime: DWORD);
begin
  GetParentForm(Self).Caption := GetParentForm(Self).Caption + ´ - ´ + IntToStr(Random(123123));
end;