<div dir="ltr"><div>uses</div><div>  unit2;</div><div><br></div><div>procedure TForm1.Button1Click(Sender: TObject);</div><div>begin</div><div>  Form2 := TForm2.Create(Self);</div><div>  Form2.ShowModal;</div><div>  Form2.Free;</div>

<div>end;</div><div class="gmail_extra"><div><br></div><div>---</div><div><br></div><div><div>uses</div><div>  Windows;</div><div><br></div><div>procedure TForm2.FormShow(Sender: TObject);</div><div>begin</div><div>  SetWindowLong(Handle, GWL_STYLE,</div>

<div>    GetWindowLong(Handle, GWL_STYLE) and (not WS_CAPTION));</div><div>  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,</div><div>    SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE);</div><div>end;</div></div><div><br></div>

-- <br>Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>