完全可以自己做.
在Form onResize事件中加上代码:
button1.width:=form1.width div x
button1.height:=form1.height div x这个x 是个变化的参数,你可以自己定
在Form onResize事件中加上代码:
button1.width:=form1.width div x
button1.height:=form1.height div x这个x 是个变化的参数,你可以自己定
解决方案 »
- 如何在Delphi中实现将Excel中数据导入数据库
- 请教:关于动态调用bpl中自定义类
- delphi中怎样实现象powerpoint中的箭头效果?
- 如何用sql语句查询出系统时间now的前1个月的相符数据?
- 希望大家能帮帮我,跪求,怎样来实现服务器传文件给多台客户端,我用的是Tidtcpservert和tidtcpclient控件
- 请问我已经受冬添加了一个线程的文件并在线程当中实现了下载功能。
- IDUdpServer如何发送消息?
- 【高分求答】【求鼠标限制进入区域的方法】
- 想问一下SQL Enterprise Manager中的那种象网页一样的界面是怎么实现的?
- 各位同仁,delphi出现EAccessViolation等一大堆和内存有关的错误,你们怎么办?
- 关于数据库复制
- 怎样将一个数字如“1997”转换为“一九九七”?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;type
TForm1 = class(TForm)
Button1: TButton;
SpeedButton1: TSpeedButton;
procedure FormResize(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FWidth: Integer;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormResize(Sender: TObject);
begin
ScaleBy(Width, FWidth);
FWidth := Width;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
FWidth := Width;
end;end.