Form vorm schliessen von L nach R und R nach L verkleinern

[phlux]

Hi!
Es sollte so gehen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    procedure WMEraseBkgnd(var Msg: TMessage); message WM_ERASEBKGND;
  public
  
  end;
  
procedure TForm1.WMEraseBkgnd;
begin
  Msg.Result := 0;
end;