TMemo动态创建

最新推荐文章于 2024-10-22 12:41:02 发布

qq_33577118

最新推荐文章于 2024-10-22 12:41:02 发布

阅读量234

点赞数 1

分类专栏： delphi自带函数文章标签： delphi

本文链接：https://blog.csdn.net/qq_33577118/article/details/128920070

版权

delphi自带函数专栏收录该内容

26 篇文章

订阅专栏

当btn3Click事件触发时，程序首先获取edt1文本框中的FileName，检查文件是否存在。如果文件存在，创建一个TMemo对象，设置其属性并加载文件内容到memo。最后，将TMemo的内容复制到mmo1的Text属性，并在完成后释放TMemo资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.btn3Click(Sender: TObject);
  var
   FileName:string;
   mymemo:TMemo;
begin
 FileName:=edt1.Text;
  if not FileExists(FileName) then Exit;
  try
    mymemo:=tmemo.Create(self);
    mymemo.Parent:=self;
    mymemo.Top:=0;
    mymemo.left:=0;
    mymemo.Height:=0;
    mymemo.Width:=0;
    mymemo.ScrollBars:=ssVertical;
    mymemo.Lines.LoadFromFile(FileName);
    mmo1.Text:=mymemo.Text;
  finally
    mymemo.Free;
  end;
end;