设置 TEdit TMemo CEdit控件 字符间距 字间距 行间距

procedure TForm1.WMCTLCOLOREDIT(var Message: TWMCtlColor);
 var
  hdc:Cardinal;
begin
  SetTextCharacterExtra(message.ChildDC,5);
  SetTextJustification(message.ChildDC,100, 53);//无效
  inherited;
end;