Delphi控件源码

开发平台：

Delphi

DynaMemo.pas：源码内容

							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.

						