Segue o código abaixo:
type
TfObject = class(TForm)
private
procedure FormShow(Sender : TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
public
constructor Create(AOwner : TComponent); override;
{ Public declarations }
end;
Código do Create:
constructor TfObject.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
Position := TPosition.poScreenCenter;
WindowState := wsNormal;
KeyPreview := true;
AlphaBlend := true;
AlphaBlendValue := 0;
BorderStyle := bsSizeable;
OnShow := FormShow;
OnKeyDown := FormKeyDown;
OnClose := FormClose;
end;
O problema é o seguinte, de acordo com o que eu sei relacionado a Delphi com O.O., eu poderia utilizar desta forma para conseguir herdar os métodos contidos na classe Pai, porém, quando faço dessa forma, eu não consigo utilizar o inherited
na classe filha, que é no caso o formulário que está herdando de TfObject
.
Descobri que fazendo a classe desta forma, eu consigo utilizar normalmente os métodos do formulário, mas quando eu ponho para os métodos do formulário (OnShow
, OnClose
, OnKeyDown
) para receber os seus devidos métodos, ele se comporta como se a classe filha estivesse fazendo isso.
Agora minha pergunta...
Como faço para minha classe TForm
atribuir seus métodos do formulário e eu apenas herdá-los quando eu implemento um método (OnShow
, OnClose
, OnKeyDown
)?
Exemplo:
procedure TForm1.FormShow(sender : TObject);
begin
//faz algo
inherited;
//faz algo
end;