Messages zwischen Objekten austauschen?

[negaH]

wieso sollen die keine Messages empfangen können ? das geht schon mit TObject.

Delphi-Quellcode:

type
  TTest = class(TObject)
    procedure WMPaint(var Msg: TMessage); message wm_Paint;
  end;

procedure TTest.WMPaint(var Msg: TMessage);
begin
  ShowMessage('Test');
end;

var
  Msg: TMessage;
begin
  Msg.Message := wm_Paint;
  Obj := TTest.Create;
  Obj.Dispatch(Msg);
  Obj.Free;
end;

Gruß Hagen