dynamicdemo.pas

来自「Delphi basic program. Basic programing」· PAS 代码 · 共 37 行

unit DynamicDemo;

interface

procedure ShowStringForm (str: string);
implementation
uses
  Forms, Controls, StdCtrls;
//设置待建窗体的各种属性。
procedure ShowStringForm (str: string);
var
  form: TForm;
begin
  Application.CreateForm (TForm, form);
  form.caption := '动态创建窗体';//设置名字
  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.