mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
29 lines
398 B
ObjectPascal
29 lines
398 B
ObjectPascal
{$mode delphi}
|
|
|
|
uses
|
|
uw6203;
|
|
|
|
type
|
|
TDerived = class(TTest)
|
|
private
|
|
procedure CMTest(var Msg: TMessage); message CM_TEST;
|
|
end;
|
|
|
|
procedure TDerived.CMTest(var Msg: TMessage);
|
|
begin
|
|
inherited;
|
|
WriteLn('TDerived.CMTest');
|
|
end;
|
|
|
|
var
|
|
Test: TTest;
|
|
Msg: TMessage;
|
|
begin
|
|
err:=true;
|
|
Test := TDerived.Create;
|
|
Msg.Msg := CM_TEST;
|
|
Test.Dispatch(Msg);
|
|
if err then
|
|
halt(1);
|
|
end.
|