delphi中让窗口最前端显示

本文由猛于 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
				
			<span style="font-size:18px;">begin  
		
			   Application.Initialize;  
		
			   if not AppHasRun(Application.Handle) then  
		
			      Application.CreateForm(TForm1, Form1)  
		
			   else  
		
			     begin  
		
			      MessageBox(0,'该程序已经在运行...','警告',MB_SYSTEMMODAL);  
		
			      Application.Terminate;  
		
			     end  
		
			end.</span>

<<技术到管理岗位的角色转换：从优秀骨干到优秀管理者

【cxgrid】根据条件限制行是否可以编辑>>