Delphi如何设置窗体位置

当移动窗体时或移动窗体后如果窗体的Left<0时让窗体Left=0

2025-04-05 22:00:54

推荐回答（1个）

回答1：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure   WMMOVE(var   Msg:   TMessage);   message   WM_MOVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure   TForm1.WMMOVE(var   Msg:   TMessage); 
begin
    Inherited;    
   if Left<0 then left:=0;
end;

end.