一个简单的问题！运行的时候，使窗体出现在频幕的顶部（在线等）

Question

请问在From的哪个事件里写代码？

Answer 1

你的窗体的position属性设置为poDesigned 然后吧你的窗体放到你的位置
就可以的了

Answer 2

函数声明：
procedure Createparams(Var Params:TCreateParams);override;
函数体：
procedure TFrmme.Createparams(var Params:TCreateParams);
begin
  Inherited CreateParams(Params);
  With Params do
  begin
   EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME;
   wndParent:=GetDesktopWindow;  //关键一行，用SetParent都不行！！
  end;
end;

Answer 3

保证没问题，用了N年的了，是Kingron的解决方法