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;