Form schritt für Schritt transparent machen !

[Delphiturbo]

Hallo
mein Form mache ich transparent mit dem Code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
AlphaBlend:=true;
AlphaBlendValue :=100;

Aber schöner wäre es wenn die Form schritt für schritt transparent wird !

[mkinzler]

In einer Schleife bzw. Timer

[Sharky]

Hai Delphiturbo.

Verändere den Wert von AlphaBlendValue doch einfach in einem Timer.

[Delphiturbo]

geht es nicht vielleicht so :

Delphi-Quellcode:

var i: Integer;
begin

 for i:=1 to 10 do
   begin
   Application.ProcessMessages;
   AlphaBlend:=true; 
   AlphaBlendValue :=AlphaBlendValue + 10;
end;

[Sharky]

Zitat:

Zitat von Delphiturbo

geht es nicht vielleicht so ...

Probiere es doch einfach aus.

Es bringt Dir auf Dauer nichts wenn Du bei jeder kleinigkeit fragst wie es geht anstelle es selber zu versuchen und Dir Gedanken zu machen.

P.S.: Überlege einfach mal wie lange der Rechner braucht um bis 10 zu zählen und ob das jemand mitbekommen würde.

[Delphiturbo]

mit einem Timer funktioniert nicht ganz richtig :

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

var i: Integer;
begin

for i:=1 to 10 do
   begin
   AlphaBlend:=true;
   AlphaBlendValue :=50;
      if  AlphaBlendValue > 230 then
      begin
     AlphaBlendValue:=255;
     Timer1.Enabled:=False;
     end
     else
     begin

      AlphaBlendValue:= AlphaBlendValue + 10;

end;
end;
end;

[Die Muhkuh]

Und jetzt überleg mal, woran das liegen könnte.

Rücke den Code schön ein, dann sieste es bestimmt.

Und dann erklärst mir noch, warum da eine For-Schleife drin ist :zwinker:

[mkinzler]

Man verwendet einen Timer auch nicht so!!!

[Die Muhkuh]

Cool down, Markus :zwinker:

[mkinzler]

Ne ist nicht nötig, bin noch ganz ruhig.