Fenster langsam einblenden

[sungamer]

Hi,
ich möchte das ein Fenster in Delphi 2005 langsam eingeblendet wird! :?

Habe dazu diesen Code mit Timer geschrieben:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
alpha: integer;
begin
alpha := alpha +1;
Form1.AlphaBlendValue := alpha;
end;

end.

Wo liegt der Fehler? :cry:


MFG
Patrick 'sungamer' Franken

[mirage228]

Hi,

Alpha ist eine lokale Variable, die bei deiner ersten Zuweisung an alpha undefiniert ist.

Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Self.AlphaBlendValue := Self.AlphaBlendValue + 1; 
end;

mfG
mirage228

[SirThornberry]

erstmal solltest du das "Form1." weg lassen sonst bekommst du irgendwann bei der Objectorientierung Probleme. Und desweiteren ist "alpha" ein localer Wert der nicht initialisiert ist. Bei jedem betreten der Timer-Procedure hat "alpha" einen Zufallswert (was grad an der Stelle im Speicher steht). Diesen Zufallswert erhöhst du dann um 1. Es kann aber durchaus seind as "alpha" bei jedem betreten 0 ist und somit bei jedem durchlauf der Alphawert vom Form auf 1 gesetzt wird.

Die beste Lösung hat mirage228 bereits gepostet.

[sungamer]

Super! Geht jetzt alles! Danke!

*CLOSE*