Wie eine Form aus anderer Form herausgleiten lassen

[Mackhack]

Hi DPler,

ich hab ne sicherlich einfache Frage an euch. Wie sollte man vorgehen um ein Fenster aus einem bereits offenen Fenster herausgleiten lassen? Kennt ihr bestimmt alle. Wenn man auf einen Button drueckt soll die Form z. B. an der Seite oder nach untern "rutschen". Zu sehen z. B. bei PowerDVD wenn man das NumPad rechts rein und rausgleiten laesst!

Danke!

[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);

[Mackhack]

Dank dir fuer den Denkanstoss!

[QuickAndDirty]

eventuell zusätzlich Doublebufferd auf true setzen, denn ich glaube das die Form ganz schön fies flackern wird.

[SirThornberry]

da das ganze form verschoben wird sollte nichts flackern.