[D2005 PE] FadeForm

[xZise]

Okay.

Erstmal ist die Frage doof gestellt

Ich möchte sozusagen eine "Komponente" TFadeForm, die sich ein/ausblenden lässt.
Nun habe ich folgenden Code:

Delphi-Quellcode:

unit UFadeForm;

interface

uses
  Forms;

type
  TFadeForm = class(TForm)
  private
    pFadeIn, pFadeOut : Boolean;

  public
    procedure Show;
    procedure Close;
  published
    property FadeIn : Boolean read pFadeIn write pFadeIn;
    property FadeOut : Boolean read pFadeOut write pFadeOut;
  end;

implementation

procedure TFadeForm.Show;
begin
  // AlphaBlend runtersetzen
  if pFadeIn then
    AlphaBlendValue := 5;

  // Show "ausführen"
  inherited Show;

  // Einblenden
  if pFadeIn then
    while AlphaBlendValue < 255 do begin
      AlphaBlendValue := AlphaBlendValue + 10;
      Sleep(10);
    end;
end;

procedure TFadeForm.Close;
begin
// Ausblenden
  if AlphaBlend then begin
    AlphaBlendValue := 255;
    while AlphaBlendValue > 5 do begin
      AlphaBlendValue := AlphaBlendValue - 10;
      Sleep(10);
    end;
  end;

  // Close "ausführen"
  inherited Close;
end;

end.

Dann die Fragen:
1. Ist der Code funktionsfähig?
2. Ich habe in der Toolpalette "TForm"! Jetzt möchte ich auch TFadeForm dort haben... Wie geht das?

@ override: Was bewirkt das "Override"?