delphi ,1)控件根据窗口大小,一直居中显示 2)显示最大化最小化按钮控件

时间:2023-03-09 04:01:20
delphi ,1)控件根据窗口大小,一直居中显示 2)显示最大化最小化按钮控件

一、控件根据窗口大小,一直居中显示

delphi ,1)控件根据窗口大小,一直居中显示 2)显示最大化最小化按钮控件

1)onResize:当窗体尺寸改变时发生

  例子:如何使控件随窗口的放大和缩小动态改变自己的大小,使控件“保存、返回”在窗口变大变小中随着变。

  在Panel调用

  delphi ,1)控件根据窗口大小,一直居中显示 2)显示最大化最小化按钮控件

procedure FROM1.CResize(Sender: TObject);
begin
BBtn_OK.Left := round((Width - - BBtn_OK.Width) / );
BBtn_Exit.Left := round((Width + - BBtn_Exit.Width) / );
end;

二、显示最大化最小化按钮控件

delphi ,1)控件根据窗口大小,一直居中显示 2)显示最大化最小化按钮控件

注意BorderStyle设置, 如果 是bsdialog  怎么设都没有最大和最小化!