mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-08 15:12:36 +02:00
52 lines
990 B
ObjectPascal
52 lines
990 B
ObjectPascal
unit fdt_basic;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes{declaration:Classes}, SysUtils;
|
|
|
|
type
|
|
TMyClass2 = class;
|
|
|
|
{ TMyClass1 }
|
|
|
|
TMyClass1 = class
|
|
public
|
|
constructor Create{declaration:System.TObject.Create};
|
|
procedure DefaultHandler{declaration:System.TObject.DefaultHandler}(var message); override;
|
|
end;
|
|
|
|
{ TMyClass2 }
|
|
|
|
TMyClass2 = class(TMyClass1{declaration:fdt_basic.TMyClass1})
|
|
public
|
|
procedure DefaultHandler(var message); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TMyClass1 }
|
|
|
|
constructor TMyClass1{declaration:fdt_basic.TMyClass1}.Create{declaration:fdt_basic.TMyClass1.Create};
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TMyClass1.DefaultHandler(var message);
|
|
begin
|
|
inherited DefaultHandler{declaration:System.TObject.DefaultHandler}(
|
|
message{declaration:TMyClass1.DefaultHandler.message});
|
|
end;
|
|
|
|
{ TMyClass2 }
|
|
|
|
procedure TMyClass2.DefaultHandler(var message);
|
|
begin
|
|
inherited DefaultHandler{declaration:fdt_basic.TMyClass1.DefaultHandler}(message);
|
|
end;
|
|
|
|
end.
|
|
|