Delphi控件源码

开发平台：

Delphi

QDynaForm.dpr：源码内容

							program QDynaForm;
uses
  QForms,
  DynaMemo in 'DynaMemo.pas';
{$R *.res}
var
  str: string;
begin
  str := '';
  Randomize;
  while Length (str) < 2000 do
    str := str + Char (32 + Random (94));
  ShowStringForm (str);
  Application.Run;
end.

						