程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi標准控件-Memo組件

Delphi標准控件-Memo組件

編輯:Delphi

Edit和MaskEdit組件都只能編輯單行文本,Delphi的Memo組件提供了多行文本的編輯功能。下面解釋Memo組件常用的屬性。

屬性 說明  Lines 這是Memo組件最常用,也是最有用的屬性,它用來顯示和保存Memo組件中的內容。  Scrollbar 很多組件都有這個屬性。用於設定組件有否滾動條。它有四個值:SSNone表示既無水平滾動條,也無垂直滾動條;SSHorizontal表示只有水平滾動條;SSVertal表示只有垂直滾動條;SSBoth表示兩者都有。當用戶要顯示的文本或其它的內容較多時,建議選用SSBoth。  WordWrap 用於設定Momo組件是否具有自動折行功能。  WantTabs 這個屬性只在Memo、RichEdit和DBMemo組件中使用。通常在切換當前焦點控件時,我們通常使用Tab鍵。但在上述三種組件中,編輯文本時常用Tab鍵來跳過若干個空格使文本對齊,這時就會有沖突。所以應將WantTabs設置為True,這樣子在組件內就可以使用Tab鍵來編輯文本。

Memo組件常用的方法:

1. 使用剪貼板(Clipboard)

我們可以使用CutToClipboard、CopyToClipboard和PastFromClipboar這三種方法,實現將Memo組件中被選擇文本剪切或復制到剪貼板上,以及將剪切板上的內容粘貼到Memo組件中。

將Memo中的選中文本剪切到剪貼板的語句如下:
   if Memo1.SelLength>0 then

2. 文本的添加

利用Lines屬性,可以增加、刪除一行文本,也可以移動一行文本。下面的代碼將文本添加到Memo中的最後一行:

Memo1.Lines.Add('將文本添加到Memo中’);

3. 文件的保存和裝載

我們可以將Memo組件中的文本保存成文本文件,也可以將文本文件裝載到Memo中。這須要配合使用SaveDialog組件和OpenDialog組件。將Memo中的文本保存為文件的語句為:

If SaveDialog1.Execute then   //打開保存對話框
   Memo1.Lines.SaveToFile(SaveDialog1.FileName);  //保存為文件

上邊的語句先打開保存對話框,然後將Memo中的文本保存到一個文件中,文件名為我們在SaveDialog中輸入的文本。

在Memo中裝載文本文件的語句為:

if Opendialog1.Execute then
   Memo1.Lines.LoadFile(Opendialog1.FileName);

執行上邊語句將打開Opendialog對話框,然後將選中的文本文件裝載到Memo中。

下面我們使用Memo組件的這些特性制作一個簡單的文本編輯器,可以實現文本的拷貝復制,並可以進行文本的保存和裝載。當然程序的功能還很簡單,我們還可以進一步擴展。這裡是入門教程,所以不宜太復雜。

程序的界面如下圖所示:

源代碼如下: 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved