子窗体弹出位置错误

在设计窗体时通常会把子窗体的 Position 设置成 poMainFormCenter。也就是说,子窗体弹出的位置是主窗体的正中。但是如果把主窗体拖动到屏幕左下角,而且主窗体的50%部分已经超出了屏幕范围,这个时候主窗体的正中其实已经不在屏幕范围之内了。这个时候弹出的子窗体可能部分或者完全处在屏幕之外了。

具体解决方法:修改 Forms.pas,修改 procedure TcustomForm.CMShowingChanged(var Message: Tmessage);

procedure TCustomForm.CMShowingChanged(var Message: TMessage);
const
  ShowCommands: 
array[TWindowState] of Integer =
    (SW_SHOWNORMAL, SW_SHOWMINNOACTIVE, SW_SHOWMAXIMIZED);
var
  X, Y: Integer;
  NewActiveWindow: HWnd;
  CenterForm: TCustomForm;
begin
  
if not (csDesigning in ComponentState) and (fsShowing in FFormState) then
    
raise EInvalidOperation.Create(SVisibleChanged);
  Application.UpdateVisible;
  Include(FFormState, fsShowing);
  
try
    
if not (csDesigning in ComponentState) then
    
begin
      
if Showing then
      
begin
        
try
          DoShow;
        
except
          Application.HandleException(Self);
        
end;
        
if (FPosition = poScreenCenter) or
           ((FPosition = poMainFormCenter) 
and (FormStyle = fsMDIChild)) then
        
begin
          
if FormStyle = fsMDIChild then
          
begin
            X := (Application.MainForm.ClientWidth - Width) 
div 2;
            Y := (Application.MainForm.ClientHeight - Height) 
div 2;
          
end else
          
begin
            X := (Screen.Width - Width) 
div 2;
            Y := (Screen.Height - Height) 
div 2;
          
end;
          
if X < Screen.DesktopLeft then
            X := Screen.DesktopLeft;
          
if Y < Screen.DesktopTop then
            Y := Screen.DesktopTop;
          
if Y > Screen.WorkAreaHeight - Height then  //PATCH
            Y := Screen.WorkAreaHeight - Height;      
//PATCH
          SetBounds(X, Y, Width, Height);
          
if Visible then SetWindowToMonitor;
        
end
        
else if FPosition in [poMainFormCenter, poOwnerFormCenter] then
        
begin
          CenterForm := Application.MainForm;
          
if (FPosition = poOwnerFormCenter) and (Owner is TCustomForm) then
            CenterForm := TCustomForm(Owner);
          
if Assigned(CenterForm) then
          
begin
            X := ((CenterForm.Width - Width) 
div 2) + CenterForm.Left;
            Y := ((CenterForm.Height - Height) 
div 2) + CenterForm.Top;
          
end else
          
begin
            X := (Screen.Width - Width) 
div 2;
            Y := (Screen.Height - Height) 
div 2;
          
end;
          
if X < Screen.DesktopLeft then
            X := Screen.DesktopLeft;
          
if Y < Screen.DesktopTop then
            Y := Screen.DesktopTop;
          
if Y > Screen.WorkAreaHeight - Height then  //PATCH
            Y := Screen.WorkAreaHeight - Height;      
//PATCH
          SetBounds(X, Y, Width, Height);
          
if Visible then SetWindowToMonitor;
        
end
        
else if FPosition = poDesktopCenter then
        
begin
          
if FormStyle = fsMDIChild then
          
begin
            X := (Application.MainForm.ClientWidth - Width) 
div 2;
            Y := (Application.MainForm.ClientHeight - Height) 
div 2;
          
end else
          
begin
            X := (Screen.DesktopWidth - Width) 
div 2;
            Y := (Screen.DesktopHeight - Height) 
div 2;
          
end;
          
if X < Screen.DesktopLeft then              //PATCH
            X := Screen.DesktopLeft;                  
//
          
if Y < Screen.DesktopTop then               //
            Y := Screen.DesktopTop;                   
//
          
if Y > Screen.WorkAreaHeight - Height then  //
            Y := Screen.WorkAreaHeight - Height;      
//PATCH
          SetBounds(X, Y, Width, Height);
        
end;


好了!大功告成。将修改后的 Forms.pas 复制到您的工程目录下,再次编译您的程序。这个问题消失了。

此外,对于修改 Delphi 的源文件,我建议把所有修改过的源文件都放在一个新的目录 (例如 PatchedVCLs),然后在 Delphi 里面定义一个环境变量,这样以后你只要给其它工程的路径里面添加这个环境变量,这些工程都可以使用你修改过的代码了。至于修改源码的一些方法和技巧,请参考 如何访问私有成员变量和函数

 

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试