procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
var
x,y:Integer;
begin
x:=Integer(round(Width/2));
Y:=Integer(round(Height/2));
Form1.Canvas.TextOut(x,y,'*');
end;
上面的程式，不管表單大小如何變化，都可以將表單上面的星星維持在正中央
那我想請問一下~如果我想把一個按鈕(button)維持在正中央，那我該用哪個語法呢？

試試:
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
var x,y: integer;
begin
Button1.Left := (NewWidth div 2) - (Button1.Width div 2);
Button1.Top := (NewHeight div 2) - (Button1.Height div 2);
end;

===================引 用 文 章===================

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
? NewHeight: Integer; var Resize: Boolean);
? var
?? x,y:Integer;
begin
?? x:=Integer(round(Width/2));
? Y:=Integer(round(Height/2));
? Form1.Canvas.TextOut(x,y,'*');
end;
上面的程式，不管表單大小如何變化，都可以將表單上面的星星維持在正中央
那我想請問一下~如果我想把一個按鈕(button)維持在正中央，那我該用哪個語法呢？
?

謝謝大大的解答^^


===================引 用 文 章===================

試試:
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,?NewHeight: Integer; var Resize: Boolean);
var x,y: integer;
begin
? Button1.Left := (NewWidth div 2) - (Button1.Width div 2);
? Button1.Top := (NewHeight div 2) - (Button1.Height div 2);
end;