如何让form只能居中显示 就是在屏幕中间显示啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 form有一个position属性的(不太记得了,一年多没用了:)),你可以设置为desktopcenter 设置position的属性为poScreenCenter。 //... private procedure WMNCHITTEST(var Msg: TWMNCHitTest); message WM_NCHITTEST; end;//...implementation//...procedure TForm1.WMNCHITTEST(var Msg: TWMNCHitTest);begin inherited; if (HTCAPTION = Msg.Result) then msg.Result := HTCLIENT;end;procedure TForm1.FormResize(Sender: TObject);begin Left := (Screen.Width - Width) div 2; Top := (Screen.Height - Height) div 2;end;procedure TForm1.FormCreate(Sender: TObject);begin FormResize(Sender);end;//... 设置position的属性为poScreenCenter。如果,窗体拖动后想居中,则自己写程序 设置 Left := (Screen.Width - Width) div 2; Top := (Screen.Height - Height) div 2; 设置position的属性为poScreenCenter。 设置position的属性为poScreenCenter。 设置position的属性为poScreenCenter。如果,窗体拖动后想居中,则自己写程序 设置 Left := (Screen.Width - Width) div 2; Top := (Screen.Height - Height) div 2; 求数组差异比较算法 [继续]vc代码转delphi md5是否真的不可解?请求QQ密码解密 数据库的关联查询语句怎么写 大家帮帮忙~? 修改标题栏颜色 怎样用ClientSocket和ServerSocket传输文件? 关分问题,看到结果即结贴 external.menuArguments.document.links(i).href 如何自动获得系统对话框上的文字并点击按钮? 在delphi中是用什么热键取返回值? delphi 在2000下设计的程序界面到98就变了?怎么办 Delphi6有Bug,用WebBrowser浏览网页出错!
private
procedure WMNCHITTEST(var Msg: TWMNCHitTest); message WM_NCHITTEST;
end;
//...
implementation
//...
procedure TForm1.WMNCHITTEST(var Msg: TWMNCHitTest);
begin
inherited;
if (HTCAPTION = Msg.Result) then msg.Result := HTCLIENT;
end;procedure TForm1.FormResize(Sender: TObject);
begin
Left := (Screen.Width - Width) div 2;
Top := (Screen.Height - Height) div 2;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
FormResize(Sender);
end;
//...
如果,窗体拖动后想居中,则自己写程序 设置 Left := (Screen.Width - Width) div 2;
Top := (Screen.Height - Height) div 2;
如果,窗体拖动后想居中,则自己写程序 设置 Left := (Screen.Width - Width) div 2;
Top := (Screen.Height - Height) div 2;