適用單行資料輸入/顯示。關鍵屬性:Text(內容)、MaxLength(限制長度)、CharCase(大小寫)、ReadOnly、PasswordChar(密碼遮罩)。支援選取、複製、剪貼、貼上操作。
文件編輯主力元件。重要特性:
Lines: TStrings:逐行存取,支援 Add/Delete/LoadFromFile/SaveToFileCutToClipboard/CopyToClipboard/PasteFromClipboardScrollBars(ssVertical/ssBoth)、WordWrap(自動換行)、AutoSizeModified:追蹤內容是否變更,關閉檔案時提示儲存procedure TEditForm.SetWordWrap(Sender: TObject);
begin
with Memo1 do
begin
WordWrap := not WordWrap;
if WordWrap then ScrollBars := ssVertical else ScrollBars := ssBoth;
WordWrap1.Checked := WordWrap;
end;
SetEditRect;
end;
宣告 var Memo1: TMemo; 為表單欄位。DynaAdd/DynaDel 將 Notebook.Pages.Objects[TabIndex](實為 TPage)轉型為 Pointer 指派給 Memo.Parent,再將建立的 TMemo 指標存回 Memo1 與 FileList。菜單功能(尋找、列印、字體等)統一操作 Memo1,達到「永遠編輯當前頁」的效果。