在把FORM1最大化时,如何把所有的按纽和控件同时按比例增大? 完全可以自己做.在Form onResize事件中加上代码:button1.width:=form1.width div xbutton1.height:=form1.height div x这个x 是个变化的参数,你可以自己定 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //全部答了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. XML就是这么神奇? 有没有办法把checkbox加到dbgrid里面去啊 字符串问题 导出到EXCEL的问题 三层数据库问题:为什么我的clientdataset控件中providername始终是刚开始在应用层添加的那几个 如何指定quickReport或FastReport报表的导出文件格式 关于多表统计问题!!急!! Delphi中的一个怪题,答对给100分。在线等候。 问一个关于数据库的简单问题?急!!! 干宝宝生日,祝宝宝生日快乐,健健康康成长! 关于数据库复制 怎样将一个数字如“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.