不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

能不能让tedit组件的text靠右边对齐

楼主snjun（XX）2001-07-13 11:54:13 在 Delphi / VCL组件开发及应用提问

能不能让tedit组件的text靠右边对齐问题点数：10、回复次数：9Top

1 楼Mark_zheng（Mark_zheng）回复于 2001-07-13 11:55:30 得分 1

可以啊！他有个属性叫ALIGN之类的（呵呵，记不很清楚）
里面选RIGHT 就可以了！Top

2 楼snjun（XX）回复于 2001-07-13 11:55:44 得分 0

另烦请瞧瞧这两个贴子：一起结帐
http://www.csdn.net/expert/topic/173/173821.shtm
http://www.csdn.net/expert/topic/177/177949.shtm
Top

3 楼snjun（XX）回复于 2001-07-13 12:00:51 得分 0

Mark_zheng(Mark_zheng)
应该是Alignment
但我没找到tedit组件的这个属性Top

4 楼Mark_zheng（Mark_zheng）回复于 2001-07-13 12:06:30 得分 1

呵呵！确实没有：）
中午回去查看看！Top

5 楼Mark_zheng（Mark_zheng）回复于 2001-07-13 12:58:45 得分 0

呵呵！没有这样的属性，我尝试用空格也不行，EDIT好象自动把空格过滤掉了。

或者你可以尝试一下用LABEL代替EDIT显示，也就是用LABEL显示，输入的时候用EDIT，
在输入的时候把LABEL 的 VISIBLE设置为FALSE ，输入完后给LABEL赋值，把EDIT 的VISIBLE设置为FALSE。可能很麻烦！呵呵！
好象没有必要。Top

6 楼jdxx（jdxx）回复于 2001-07-13 13:09:48 得分 0

能不能让tedit组件的text的长度随窗体的宽度自动拉伸或缩小，象IE的地址栏？？？
（不用控件）Top

7 楼aizb（aizb）回复于 2001-07-13 14:57:54 得分 8

对齐吗？这个简单：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, CoolCtrls;

type
TMyEdit=Class(TEdit)
private
FTextAlign: TAlignment;
procedure SetTextAlign(const Value: TAlignment);
protected
procedure CreateParams(var Params: TCreateParams); override;
published
property TextAlign: TAlignment read FTextAlign write SetTextAlign default taLeftJustify;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
Edit1:TMyEdit;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TMyEdit }

procedure TMyEdit.CreateParams(var Params: TCreateParams);
const
Alignments: array [TAlignment] of DWord = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
inherited CreateParams(Params);
with Params do
Style := Params.Style or ES_MULTILINE or Alignments[FTextAlign];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1:=TMyEdit.Create(Self);
Edit1.Parent:=Self;
Edit1.Align:=alTop;
Edit1.Text:='aaaa';
end;

procedure TMyEdit.SetTextAlign(const Value: TAlignment);
begin
FTextAlign := Value;
RecreateWnd;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var i:Word;
begin
i:=ORD(Edit1.TextAlign)+1;
i:=i MOD 3;
Edit1.TextAlign:=TAlignment(i);
end;

end.
要长度随窗体宽度变化也很简单啦：改变anchors属性成[akLeft,akTop,akRight]就可以了！
Top

8 楼aizb（aizb）回复于 2001-07-13 15:30:07 得分 0

关于：http://www.csdn.net/expert/topic/173/173821.shtm：
答：你可能用了UpdateSQL控件，而没有设置其中的SQL语句。或者关于TUpdateSql的属性设置不对。

关于：http://www.csdn.net/expert/topic/177/177949.shtm:
我用query连结sql数据库，
cachedupdates:=true;
requestlive:=true;
如何判断我的表有没有修改数据
比如在三层时：clientdataset有一个changecount属性

答：Query的UpdatesPending属性可以检查是否有记录未提交！

用query连结sql数据库，再用dbgrid连结query用来浏览修改数据效率怎么样

答：对于网络数据库，这种组合是Delphi数据库程序的标准组合，效率是最好的！Top

9 楼snjun（XX）回复于 2001-07-15 16:25:16 得分 0

tytTop