Wie eine Form aus anderer Form herausgleiten lassen

[SirThornberry]

Das ginge in dem du ein Form machst was, wenn es seitlich raus fährt, 0 pixel breit ist. Dann vergrößerst du dieses züglich, und setzt wenn es nach links heraus fahren soll die Position gleichzeitig mit.

Delphi-Quellcode:

var
  lNewLeft: Integer;
begin
  lNewLeft := Self.Left - MySlideForm.Width - 2;
  MySlideForm.SetBounds(lNewLeft, Self.Top, Self.Left - lNewLeft, Self.Height);