edit控件中的内容能不能靠右显示?dbgrid中显示的内容能不能按列排序?(100分)

  • 主题发起人 主题发起人 jinechang
  • 开始时间 开始时间
J

jinechang

Unregistered / Unconfirmed
GUEST, unregistred user!
edit控件中的内容一般是靠左显示的,有没有一个属性能把它设置成靠右显示?
在dbgrid中显示了一个表单的内容,我想单击某一列时,就能按这一列重新排序,
如何实现?
请朋友帮忙,谢谢!
 
这些都可以,但要用第三方控件,LMD套件是一个很好的控件包!

下载地址 http://www.playicq.com/dispdoc.php?t=19&id=2278
 
edit本身不可以,必须通过第三方控件
grid显示可以实现,但应该连接的是query
通过SQL语句来实现排序
 
继承一下,在 create 中改变参数

自己实现排序。
 
to lanbing1400:我的grid 连接的是query,语句怎么写,我今天试了,
但我对SQL语句不很熟悉。
to jsxjd:能说详细点吗?谢谢!
 
点击重新执行 query .......order by...

右齐,我代码不在身边,你搜索一下本BBS
 
可以,用sql进行排序,
 
要靠右,需自己写组件了。

private
FAlignment : TAlignment; //对齐方式
procedure SetAlignment(Value: TAlignment);
protected
procedure CreateParams(var Params: TCreateParams); override;
published
property Alignment: TAlignment read FAlignment write SetAlignment;

procedure TNewEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);

case FAlignment of
taLeftJustify:
begin
Params.Style := Params.Style + ES_LEFT;
end;
taRightJustify:
begin
Params.Style := Params.Style + ES_RIGHT;
end;
taCenter:
begin
Params.Style := Params.Style + ES_CENTER;
end;
end;
end;

procedure TNewEdit.SetAlignment(Value: TAlignment);
begin
if FAlignment <> Value then
begin
FAlignment := Value;
RecreateWnd;
end;
end;
 
谢谢影子,我去试试。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
753
DelphiTeacher的专栏
D
D
回复
0
查看
659
DelphiTeacher的专栏
D
D
回复
0
查看
909
DelphiTeacher的专栏
D
D
回复
0
查看
652
DelphiTeacher的专栏
D
后退
顶部