如何減少tRichEdit的行距

Question

我使用tRichEdit設置線條顏色。 我想減少行空間，例如tMemo。

當我手動輸入字母時，行距會自動減小，但是當我使用tRichEdit.lines.add時，什么也不會發生。

如果不可能，是否有替代品？

Answer 1

您可以通過發送調整行間距EM_SETPARAFORMAT通過SendMessage ，設置PFM_LINESPACING在dwMask和提供價值為dyLineSpacing值（和設置bLineSpacingRule值，以便在RichEdit知道如何解釋是前者）。 下面的代碼在TRichEdit中設置了非常緊密的TRichEdit （這些行實際上彼此稍微重疊）：

procedure TForm1.FormCreate(Sender: TObject);
var
  Para: TParaFormat2;
begin
  Para.cbSize := SizeOf(Para);
  Para.dwMask := PFM_LINESPACING;
  Para.bLineSpacingRule := 4;  // Use exact twips specified
  Para.dyLineSpacing := 120;   // Ridiculously small value
  SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, 0, LPARAM(@Para));
end;

有關更多信息，請參見EM_SETPARAFORMAT的MSDN文檔。