delphi中edit控件内容上下居中

最新推荐文章于 2024-11-13 10:41:03 发布

转载最新推荐文章于 2024-11-13 10:41:03 发布 · 833 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ntearn/archive/2012/07/25/2607570.html

本文介绍了一种在Delphi中实现编辑框内容上下居中的方法，通过自定义TEdit类并重写部分方法来调整编辑框内容的位置，使得文本能够在编辑框内垂直居中显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

转载于:https://www.cnblogs.com/ntearn/archive/2012/07/25/2607570.html