AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

[D2005 PE] FadeForm

Ein Thema von xZise · begonnen am 30. Apr 2006 · letzter Beitrag vom 1. Mai 2006
Antwort Antwort
Seite 1 von 3  1 23      
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

[D2005 PE] FadeForm

  Alt 30. Apr 2006, 11:06
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!
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
30. Apr 2006, 11:12
Dieses Thema wurde von "SirThornberry" von "Die Delphi-IDE" nach "Library: VCL / WinForms / Controls" verschoben.
30. Apr 2006, 11:37
Dieses Thema wurde von "Daniel" von "Library: VCL / WinForms / Controls" nach "VCL / WinForms / Controls" verschoben.
Benutzerbild von arbu man
arbu man

Registriert seit: 3. Nov 2004
Ort: Krefeld
1.108 Beiträge
 
Delphi 7 Professional
 
#4

Re: [D2005 PE] FadeForm

  Alt 30. Apr 2006, 12:24
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
Björn
>> http://bsnx.net <<
Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#5

Re: [D2005 PE] FadeForm

  Alt 30. Apr 2006, 14:48
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"?
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Benutzerbild von GuenterS
GuenterS

Registriert seit: 3. Mai 2004
Ort: Österreich > Bad Vöslau
760 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: [D2005 PE] FadeForm

  Alt 30. Apr 2006, 15:00
zu 1)

Was spricht dagegen, dass Du es einfach probierst? Dann siehst Du quasi live obs geht oder nicht.
Günter
Pünktlichkeit ist die Fähigkeit vorherzusagen um wieviel sich der Andere verspäten wird.
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#7

Re: [D2005 PE] FadeForm

  Alt 30. Apr 2006, 15:01
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
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#8

Re: [D2005 PE] FadeForm

  Alt 30. Apr 2006, 15:02
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
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#9

Re: [D2005 PE] FadeForm

  Alt 30. Apr 2006, 15:04
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?
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#10

Re: [D2005 PE] FadeForm

  Alt 30. Apr 2006, 15:06
Mitinherited;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz