blob: a7dad0aecce703f01de0fb798f67a5067df256cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{$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.
|
