[D2005 PE] FadeForm

[xZise]

Ich würde gerne eine FadeForm anfertigen.
Also folgender Code bei "OnShow":

Delphi-Quellcode:

// AlphaBlend runtersetzen
if AlphaBlend then
  AlphaBlendValue := 5;

// Show "ausführen"
inherited Show;

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

und folgender bei "OnClose":

Delphi-Quellcode:

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

// Close "ausführen"
inherited Close;

Nun habe ich keine Ahnung wie ich das hinzufüge bzw. ansonsten Code!
Gibts da vielleicht Tutorials?

PS: Wie schon gesagt: D2005 PE!

[arbu man]

inherited Show; Das sagt schon mal das es nicht in OnShow gehört. Offenbar wurde das ganze von TForm abgeleitet.

Delphi-Quellcode:

type 
  TFadeForm = class (TForm) 
  public
    procedure show;override;
    procedure close;override;
  end;

Dann einmal die Klasservervollständigung aufrufen und den Code eintragen.
Dann kanst du deine Form von TFadeForm ableiten und des sollte funktionieren.

mfg, Björn

[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"?

[GuenterS]

zu 1)

Was spricht dagegen, dass Du es einfach probierst? Dann siehst Du quasi live obs geht oder nicht.

[xZise]

Ich müsste es in ein Projekt packen um es zu kompilieren

Und ansonsten kenne ich mich mit dem "Zeusg" ^^ nicht ganz so gut aus... Ich werde das mal in ein Package packen... (versuchen) und dann mal komplieren

[fkerber]

Hi!

Zu 1)
Probiers doch mal

zu 2)
Schau mal nach RegisterComponent

zu Override:
Wie der Name sagt, überschreibt es die bisherige Implementierung der Funktion/Prozedur...


Ciao Frederic

[xZise]

Zitat von fkerber:

zu Override:
Wie der Name sagt, überschreibt es die bisherige Implementierung der Funktion/Prozedur...

Und wie kann ich dann denn bisherigen "Show" Code ausführen?

[jfheins]

Mitinherited;