Delphi 编辑和备忘录中的文本偏移

Question

我注意到，在 Delphi 2009 中，多行备忘录中的文本左侧填充与单行编辑中的文本不同，尽管两者都基于 TCustomEdit。确切的偏移量取决于字体大小:

alt text http://img188.imageshack.us/img188/7668/editmemo.png

我正在寻找一种简单的方法来使备忘录文本与编辑文本具有相同的偏移量对齐。如果这是不可能的，那么在给定字体大小的情况下计算偏移量以像素为单位的方法怎么样，以便我可以在显示(动态创建和定位)字段之前调整它们的位置？我认为在 Delphi 的早期版本中，两个偏移量是相同的。

Answer 1

有EM_GETMARGINS 。我不确定这是否算“简单”。 :-)

编辑:试试这个:

type
  tSynMargins = record
    left, right: Word;
  end;

function GetLeftMargin(hEdit: HWND): Word;
var
  margins: Longint;
begin
  margins := SendMessage(hEdit, EM_GETMARGINS, 0, 0);
  Result := tsynMargins(Margins).left;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(GetLeftMargin(Edit1.Handle));
  Memo1.Text := IntToStr(GetLeftMargin(Memo1.Handle));
end;

(灵感来自 this )