Project Structure

• QDynaForm.dpr
• DynaMemo.pas

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.

unit DynaMemo;

interface

procedure ShowStringForm (str: string);

implementation

uses
  QForms, QControls, QStdCtrls;

procedure ShowStringForm (str: string);
var
  form: TForm;
begin
  Application.CreateForm (TForm, form);
  form.caption := 'DynaForm';
  form.Position := poScreenCenter;
  with TMemo.Create (form) do
  begin
    Parent := form;
    Align := alClient;
    Scrollbars := ssVertical;
    ReadOnly := True;
    Color := form.Color;
    BorderStyle := bsNone;
    WordWrap := True;
    Text := str;
  end;
  form.Show;
end;

end.