unit1.pas

来自「无论怎样拖动窗体大小,按钮始终居中,可以支持多个按钮」· PAS 代码 · 共 39 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var x,y:Integer;
begin
x := Width  div 2 - 100;
y :=Width  div 2;
button1.Left :=x;
button2.Left :=y;
end;

end.