kompo wie die bei G-Mail Notiefier

[fränk0815]

Ich habe das ganze jetzt mal ohne Timer erstellt.

Dadurch geht jedoch leider der Effekt des "langsamen Herraufrollens" verloren ...

Vielleicht hat jemand hier eine Lösungsmöglichkeit dazu ?

Hier meine Procedure:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
  i : Integer;
begin
  Button.Enabled := False;

  Application.CreateForm(TForm2, Form2);
  Form2.Show;

  Form2.Left := Screen.Width - Form2.Width - 10;
  Form2.Top  := Screen.Height + Form2.Height;

  i := Form2.Top;

  while (i > Screen.Height - Form2.Height - 10) do
  begin
    i := Form2.Top - 5;
    Application.ProcessMessages;
    Form2.Top := i;
  end;

  Button.Enabled := True;
end;