delphi之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組件的封轉好的方法以下

{ TMemo }

public

  constructor Create(...); override; //

  destructor Destroy; override;      //

  procedure CopyToCliPBoard;         //複製

  procedure PasteFromClipboard;      //粘貼

  procedure CutToClipboard;          //剪切

  procedure ClearSelection;          //取消選擇

  procedure SelectAll;               //全選

  procedure GoToTextEnd;             //到最後

  procedure GoToTextBegin;           //到開始

  procedure GotoLineEnd;             //到行尾

  procedure GoToLineBegin;           //到行首

  function GetPositionPoint(...): TPointF;    //獲取當前位置

  procedure UnDo;                             //撤銷

  procedure InsertAfter(...);                 //插入

  procedure DeleteFrom(...);                  //刪除指定範圍的內容

  function TextPosToPos(...): TCaretPosition; //根據指定的文本長度計算光標位置

  function PosToTextPos(...): Integer;        //TextPosToPos() 的反相計算

  property SelStart: Integer ...;             //選區文本的起始位置

  property SelLength: Integer ...;            //選區文本的長度

  property SelText: string ...;               //選區文本

  property CaretPosition: TCaretPosition ...; //輸入光標的位置

  property LineWidth[LineNum: Integer]: Single ...; //獲取指定行的寬度

  property UnwrapLines: TStrings ...;         //沒有換行的原始文本集合; 在 WordWrap = False 時同 Lines

  property FontFill: TBrush ...;              //文本筆刷

  property SelectionFill: TBrush ...;         //選區筆刷

published

  property Cursor default crIBeam;       //鼠標光標

  property CanFocus default True;        //可否擁有焦點

  property DisableFocusEffect;           //是否禁用焦點特效

  property TabOrder;                     //Tab 序

  property AutoSelect: Boolean ...;      //是否在獲取焦點時自動全選

  property CharCase: TEditCharCase ...;  //控制大小寫的選項

  property Enabled;                      //是否可用

  property HideSelection: Boolean ...;   //?

  property Lines: TStrings ...;          //自動換行後的文本集合

  property MaxLength: Integer ...;       //最大長度

  property ReadOnly: Boolean ...;        //是否只讀

  property OnChange: TNotifyEvent ...;         //有改變時

  property OnChangeTracking: TNotifyEvent ...; //發生在 OnChange 以前的事件

  property WordWrap: Boolean ...;        //是否自動換行

  property Font: TFont ...;              //字體

  property Text: string ...;             //內容

  property TextAlign: TTextAlign ...;    //文本對齊方式

  property StyleLookup;                  //指定樣式

end;