主题：如何使edit中我文字在水平、垂直方向居中显示？
tqtqtq
[专家分：10] 发布于 2006-11-10 09:12:00
各位朋友请问如何使edit中的文字在水平、垂直方向居中显示？
回复列表 （共1个回复）
沙发
fengsh [专家分：0] 发布于 2006-11-13 19:16:00
查了下资料，没有写EDIT可以居中的，只有LABEL控件可以有这种功能！
procedure TForm1.Button1Click(sender:TObject);
var
font:TFont;
logfont:tagLOGFONT;
begin
font:=TFont.Create;
font.Assign(Label1.Font);
GetObject(font.Handle,sizeof(LOGFONT),@logfont);
logfont.lfEscapement:=-900;
logfont.lfOrientation:=-900;
font.Handle:=CreateFontIndirect(logfont);
Label1.Font:=font;
font.Free;
end;
我来回复
您所在位置：