delphi中edit控件内容上下居中

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内容均上下居中了。