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組件的這些特性制作一個簡單的文本編輯器,可以實現文本的拷貝復制,並可以進行文本的保存和裝載。當然程序的功能還很簡單,我們還可以進一步擴展。這裡是入門教程,所以不宜太復雜。
程序的界面如下圖所示:
源代碼如下: