Question

Delphi如何设置窗体位置

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

Answer 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.

追问

if Left<0 then left:=0; 我在mouseUp事件中也这么写的，为啥不行呢

追答

mouseUp这个事件是窗口中放开鼠标键事件，不能捕获标题栏鼠标放开事件。

Answer 2

form.position :=poMainFormCenter