本文整理自网络，侵删。
关键代码如下：
var
Form1: TForm1;
x,y:Integer;
implementation
{$R *.dfm}
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if TrackBar1.Position=0 then
begin
image1.Width:=x;
image1.Height:=y;
Exit;
end;
image1.Width:=Ceil(x*( TrackBar1.Position));
image1.Height:=Ceil(y*( TrackBar1.Position));
image1.Top:=Ceil(1/2*(Self.Height-image1.Height));
Image1.Left:=Ceil(1/2*(Self.Width-image1.Width));
end;
procedure TForm1.FormShow(Sender: TObject);
begin
x:=image1.Width;
y:=image1.Height;
image1.Top:=Ceil(1/2*(Self.Height-image1.Height));
Image1.Left:=Ceil(1/2*(Self.Width-image1.Width));
end;
end.
需要引用Math单元..
相关阅读 >>
Delphi 错误no ftp list parsers have been registered
Delphi 判断指定字符串是否开头 startstext用法
更多相关阅读请进入《Delphi》频道 >>
