开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
QSpeedForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

QSpeedForm.pas：源码内容
  1. unit QSpeedForm;
  3. interface
  5. uses
  6.   SysUtils, Classes, Types, QGraphics, QControls, QForms,
  7.   QDialogs, QStdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     ScrollBox1: TScrollBox;
  12.     Button1: TButton;
  13.     Label1: TLabel;
  14.     procedure Button1Click(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  21. var
  22.   Form1: TForm1;
  24. implementation
  26. {$R *.xfm}
  28. procedure TForm1.Button1Click(Sender: TObject);
  29. var
  30.   i: Integer;
  31.   time: TDateTime;
  32. begin
  33.   time := Now;
  34.   for I := 0 to 500 do
  35.   begin
  36.     with TEdit.Create (self) do
  37.     begin
  38.       SetBounds (Random (ScrollBox1.ClientWidth),
  39.         Random (ScrollBox1.ClientHeight),
  40.         50, 16);
  41.       Parent := ScrollBox1;
  42.       Text := 'Edit ' + IntToStr (I);
  43.     end;
  44.     with TButton.Create (self) do
  45.     begin
  46.       SetBounds (Random (ScrollBox1.ClientWidth),
  47.         Random (ScrollBox1.ClientHeight),
  48.         Width, Height); // default
  49.       Parent := ScrollBox1;
  50.       Caption := 'Button ' + IntToStr (I);
  51.     end;
  52.     Application.ProcessMessages;
  53.   end;
  54.   time := Now - time;
  55.   Label1.Caption := FormatDateTime ('nn:ss.zzz', time);
  56. end;
  58. end.