Form - Stay on down

Top  Previous  Next

Stay on Bottom

==============

type 

  TForm1 = class(TForm) 

  private 

    procedure Chivato(var m: TWMWINDOWPOSCHANGED); message WM_WindowPosChanging; 

  public 

  end

 

procedure TForm1.Chivato(var m: TWMWINDOWPOSCHANGED); 

begin 

  m.WindowPos.hwndInsertAfter:=HWND_BOTTOM; 

end