TAfterShow Komponente

[shmia]

Nicht schlecht.
Du könntest noch die unbenutzen Units (z.B. Graphics, Controls) entfernen.
Ausserdem sollte man überall statt mit TForm mit TCustomForm arbeiten.
Solltest du auf Properties von TCustomForm nicht zugreifen können, weil diese Protected sind,
gibt es noch einen Trick.

Delphi-Quellcode:

implementation
type
   TcustomFormCracker = class(TcustomForm)
   end;
constructor TAfterShow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  if AOwner is TForm then
  begin
    FForm             := TcustomFormCracker(AOwner);
    FOnShow           := FForm.OnShow;