如何让Edit框中的字体靠右显示?
如何让Edit框中的字体靠右显示? 问题点数：0、回复次数：5Top
1 楼Kshape（C/C++初学者~~~~）回复于 2005-04-01 12:49:09 得分 0
//点击后左右对齐切换
procedure TForm1.ButtonClick(Sender: TObject);
var
Style: DWORD;
begin
Style := GetWindowLong(Edit1.Handle, GWL_STYLE);
if (Style and ES_RIGHT) = ES_RIGHT then
Dec(Style, ES_RIGHT)
else
Style := Style + ES_RIGHT;
SetWindowLong(Edit1.Handle, GWL_STYLE, Style);
Edit1.Invalidate;
end;
Top
2 楼Kshape（C/C++初学者~~~~）回复于 2005-04-01 12:49:32 得分 0
SetWindowLong(Edit1.handle, GWL_STYLE,GetWindowlong(edit1.Handle, GWL_STYLE) +ES_CENTER);
SetWindowLong(Edit1.handle, GWL_STYLE,GetWindowlong(edit1.Handle, GWL_STYLE) +ES_RIGHT);
Top
3 楼alunyzl（阿伦）回复于 2005-04-01 13:51:21 得分 0
duo xieTop
4 楼pengxuan（网虫先生）回复于 2005-04-01 13:54:02 得分 0
Kshape([伟大的大伟!]) 高手Top
5 楼coolclouds（小云儿）回复于 2005-04-01 16:29:39 得分 0
没有效果啊。我试了试Top
