title: How to make a window like Windows 7 Notifications Flyouts, (WS_THICKFRAME but NOT-RESIZABLE)
body: <p>I just made a <a href="http://vitimtk.blogspot.com/2011/09/ibrightness-tray.html" rel="nofollow noreferrer">small app here</a> in Delphi 7 that simulates the default system icons, like Volume, Battery, Clock, Network.  </p>
  
  <p>I'm trying to follow all Microsoft recomendations here <a href="http://msdn.microsoft.com/en-us/library/aa511448.aspx#flyouts" rel="nofollow noreferrer">http://msdn.microsoft.com/en-us/library/aa511448.aspx#flyouts</a></p>
  
  <p>To make a window look like a flyout, i'm using this code:</p>
  
  <pre><code>//declaration
  
  TForm1 = class(TForm)
  
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
  </code></pre>
  
  <p>implementation</p>
  
  <pre><code>procedure TForm1.CreateParams(var Params: TCreateParams);
  begin
    inherited;
    Params.Style := WS_POPUP or WS_THICKFRAME;
    Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
  end;
  </code></pre>
  
  <p><strong>My problem is the WS_THICKFRAME allows user to resize the window. How can I fix this?</strong></p>
  
  <p><img src="https://i.stack.imgur.com/VSr3S.jpg" alt="Resizable Window Issue"></p>