blob: 6ab6fb1b239944be6aa26074b19af02ba267f5fb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ Source provided for Free Pascal Bug Report 2328 }
{ Submitted by "Pavel V. Ozerski" on 2003-01-20 }
{ e-mail: ozerski@list.ru }
{$ifdef fpc}
{$mode objfpc}
{$endif}
type
tClassA=class
procedure DefaultHandler(var Message);override;
end;
procedure tClassA.DefaultHandler(var Message);
begin
inherited //;
end;
begin
end.
|
