Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: TAfterShow Komponente

  Alt 13. Sep 2005, 10:30
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;
Andreas
  Mit Zitat antworten Zitat