ipad下载雷竞技-雷竞技app苹果下载官方版

本文由  于 2018-3-1 7:41 发布在  Delphi    


//置前

SetWindowPos(form1.handle,HWND_TOPMost,form1.left,form1.top,form1.width,form1.heigth,0);

//取消置前

SetWindowPos(form1.handle,HWND_NOTOPMost,form1.left,form1.top,form1.width,form1.heigth,0);

2.对于MessageBox

MessageBox(0,'该程序已经在运行...','警告',MB_SYSTEMMODAL);

[delphi] view plain copy
  1. <span style="font-size:18px;">begin  
  2.    Application.Initialize;  
  3.    if not AppHasRun(Application.Handle) then  
  4.       Application.CreateForm(TForm1, Form1)  
  5.    else  
  6.      begin  
  7.       MessageBox(0,'该程序已经在运行...','警告',MB_SYSTEMMODAL);  
  8.       Application.Terminate;  
  9.      end  
  10. end.</span>  

最新评论
网站管理  |  赵猛的个人主页  |  手机版  |  RSS  |  留言建议  |  关于本站  |  联系方式

All Rights Reserved. Powered by emlog Themes by 大智若愚
网站备案号:苏ICP备15011688号-1