Hallo
mein Form mache ich transparent mit dem Code:

markieren

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 !

In einer Schleife bzw. Timer

Hai Delphiturbo.

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

geht es nicht vielleicht so :

markieren

Delphi-Quellcode:

var i: Integer;
begin

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

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.

mit einem Timer funktioniert nicht ganz richtig :

zusammenfalten · markieren

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;

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

Man verwendet einen Timer auch nicht so!!!

Cool down, Markus

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