Was geht ist folgendes:
Wir erstellen uns manuell eine Ableitung von
TFrame
:
Delphi-Quellcode:
unit CustomFrameApp.Frames.MyBaseFrame;
interface
uses
Vcl.ExtCtrls,
Vcl.Forms;
type
TMyBaseFrame =
class(TFrame)
private
FIcon: TImage;
published
property Icon: TImage
read FIcon
write FIcon;
end;
implementation
end.
Dann erstellen wir uns ein neues
TFrame
wie gehabt und verändern den Source leicht:
Delphi-Quellcode:
unit CustomFrameApp.Frames.MyFrame;
interface
uses
Winapi.Windows,
Winapi.Messages,
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
// die Unit mit dem Vorgänger-Frame
CustomFrameApp.Frames.MyBaseFrame;
// Umbiegen der Klasse TFrame auf die gewünschte Klasse
type
TFrame = CustomFrameApp.Frames.MyBaseFrame.TMyBaseFrame;
type
TMyFrame =
class(TFrame)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
implementation
{$R *.dfm}
end.