DynaMemo.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit DynaMemo;
  2. interface
  3. procedure ShowStringForm (str: string);
  4. implementation
  5. uses
  6.   Forms, Controls, StdCtrls;
  7. procedure ShowStringForm (str: string);
  8. var
  9.   form: TForm;
  10. begin
  11.   Application.CreateForm (TForm, form);
  12.   form.caption := 'DynaForm';
  13.   form.Position := poScreenCenter;
  14.   with TMemo.Create (form) do
  15.   begin
  16.     Parent := form;
  17.     Align := alClient;
  18.     Scrollbars := ssVertical;
  19.     ReadOnly := True;
  20.     Color := form.Color;
  21.     BorderStyle := bsNone;
  22.     WordWrap := True;
  23.     Text := str;
  24.   end;
  25.   form.Show;
  26. end;
  27. end.