delphi中edit控件内容上下居中

关于delphi中edit控件内容上下居中问题，在网上找了很多，大多介绍的是左右居中，edit左右居中在delphi的高版本里已经增加了一个Alignment属性，设置为taCenter即可，最终在网上找到了上下居中的解决办法，在type加入如下代码：

type

TEdit = class(StdCtrls.TEdit)

protected

procedure CreateParams(var Params: TCreateParams); override;

procedure KeyPress(var Key: Char); override;

procedure WMSize(var msg: TWMSize);message WM_SIZE;

procedure SetParent(AParent: TWinControl);override;

procedure SetCenter;

end;

然后在程序代码中分别加入以下过程代码：

procedure TEdit.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.Style := Params.Style or ES_MULTILINE;

end;

procedure TEdit.KeyPress(var Key: Char);

begin

inherited;

if Key = #13 then

key := #0;

end;

procedure TEdit.SetCenter;

var

DC: HDC;

SaveFont: HFont;

Sin: Integer;

SysMetrics, Metrics: TTextMetric;

Rct: TRect;

begin

DC := GetDC(0);

GetTextMetrics(DC, SysMetrics);

SaveFont := SelectObject(DC, Font.Handle);

GetTextMetrics(DC, Metrics);

SelectObject(DC, SaveFont);

ReleaseDC(0, DC);

if Ctl3D then Sin := 8 else Sin := 6;

Rct := ClientRect;

Sin := Height - Metrics.tmHeight - Sin;

Rct.Top := Sin div 2;

SendMessage(Handle, EM_SETRECT, 0, Integer(@Rct));

end;

procedure TEdit.SetParent(AParent: TWinControl);

begin

inherited;

if Parent <> nil then

begin

SetCenter;

end;

end;

procedure TEdit.WMSize(var msg: TWMSize);

begin

inherited;

SetCenter;

end;

运行后，界面上的edit内容均上下居中了。