Einblenden

[delirium]

Servus,

wie kann ich Formulare ein- und ausblenden statt sie nur anzuzeigen?

[Christian Seehase]

Moin Delirium,

dazu mal ein kleines Beispiel:

Im OI AlphaBlend auf true, und dann:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);

var
  iIndex : integer;

begin
  for iIndex := 0 to 255 do begin
    AlphaBlendValue := iIndex;
  end;
end;

[Stanlay Hanks]

Hi Christian! Ich könnte mir vorstellen, dass das mit der for Schleife so schnell geht, dass man das Verändern des AlphaBlendValues gar nicht merkt. Wenn man in der Schleife noch ein "Sleep(x)" setzt, dann müsste es gehen.

Man liest sich, Stanlay

[Christian Seehase]

Moin Stanlay,

hatte ich auch ursprünglich gedacht, aber probier's mal aus.
Das ist so langsam, dass eine While Schleife mit Sprüngen in den Werten in der Praxis sinnvoller ist.

[S2B]

Eine andere Möglichkeit gibt es hier.

[Stanlay Hanks]

Zitat von Christian Seehase:

Moin Stanlay,

hatte ich auch ursprünglich gedacht, aber probier's mal aus.
Das ist so langsam, dass eine While Schleife mit Sprüngen in den Werten in der Praxis sinnvoller ist.

Dass das so langsam geht (dauert bei mir um die 5-7 Sekunden ) ist schon komisch. Naja, auf jeden Fall Entschuldigung, dass ich Schmarrn geschrieben hab und danke für die Aufklärung

Man liest sich, Stanlay