******如何实现ComboBox和Text的靠右显示?******

如何实现ComboBox和Text的靠右显示?  
  最好是不要用其它控件! 问题点数：100、回复次数：15Top

1 楼zhaojinghui（~穷的就剩钱了~）回复于 2005-03-01 15:11:25 得分 0

是不没有人知道吧！Top

2 楼zhaojinghui（~穷的就剩钱了~）回复于 2005-03-01 15:16:56 得分 0

标题和上面打错了一个字!  
   
   
  如何实现ComboBox的Text的靠右显示?  
  最好是不要用其它控件!  
  Top

3 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2005-03-01 15:40:03 得分 20

自己继承procedure   CreateParams(var   Params:   TCreateParams);   override;  
   
  procedure   TEditEx.CreateParams(var   Params:   TCreateParams);  
  const  
      Alignments:   array[Boolean,   TAlignment]   of   DWORD   =  
          ((ES_LEFT,   ES_RIGHT,   ES_CENTER),(ES_RIGHT,   ES_LEFT,   ES_CENTER));  
  begin  
      inherited   CreateParams(Params);  
      with   Params   do  
      begin  
          Style   :=   Style   or  
              Alignments[UseRightToLeftAlignment,   FAlignment];  
      end;  
  end;  
   
  就这么简单的  
   
  http://lysoft.7u7.netTop

4 楼sdcfall（词客）回复于 2005-03-01 15:44:17 得分 0

假设你要显示的字符串是s,   而combobox的Edit宽长是n,  
  则在s前面加上n-length(s)个'   '（空格），不就可以了吗？Top

5 楼hjf8086（hjf）回复于 2005-03-01 16:10:39 得分 0

这招   绝Top

6 楼zzlazio（sritsb）回复于 2005-03-01 16:25:12 得分 0

sdcfall(词客)  
  这种方法都有...无言诶....  
  >>>>>>>>>>>>>>>>>>>>>>>>>>>  
  支持ly_liuyang(Liu   Yang)   又学到点东西诶Top

7 楼alexanda2000（书生活）回复于 2005-03-01 16:47:51 得分 0

ly_liuyang能不能解释一下代码啊?Top

8 楼cdsgajxlp（起名很难）回复于 2005-03-01 17:09:38 得分 0

带星的就是与众不同Top

9 楼sally612（sally）回复于 2005-03-01 17:23:40 得分 0

学习Top

10 楼fayeflash（我爱阿菲）回复于 2005-03-02 08:40:49 得分 0

收藏起来Top

11 楼whbo（王红波（年轻人，要有所作为））回复于 2005-03-02 08:51:07 得分 0

//Tedit的文字从右向左  
  继承TEdit，重载CreateParams，修改Param即可。  
   
  procedure   TEdit_Ex.CreateParams(var   Params:   TCreateParams);  
   
  begin  
   
  inherited;  
   
  if   self.FTextOnRight   then   Params.Style:=Params.Style   or   ES_RIGHT;  
   
  end;  
   
  　  
  Top

12 楼merkey2002（小样的）回复于 2005-03-02 08:57:34 得分 0

回复人：   sdcfall(词客)   (   )   信誉：98    
  假设你要显示的字符串是s,   而combobox的Edit宽长是n,  
  则在s前面加上n-length(s)个'   '（空格），不就可以了吗？  
   
  ----------->  
  我覺得這位才是高手,歷害，佩服~Top

13 楼g961681（技术庸人(情商太低)）回复于 2005-03-02 14:04:00 得分 0

ly_liuyang(Liu   Yang)   的方法用起来了吗？Top

14 楼dext（德克斯特）回复于 2005-03-02 14:56:30 得分 80

一条语句，纳来用继承？  
   
      SetWindowLong(ComboBox1.Handle,   gwl_ExStyle,   GetWindowLong(ComboBox1.Handle,   gwl_ExStyle)   xor   ws_Ex_Right   xor   ws_Ex_Left);  
  Top

15 楼huyongxiao（）回复于 2005-03-02 15:04:55 得分 0

应该说ly_liuyang(Liu   Yang)   是大侠，而sdcfall(词客)   是奇侠Top

相关问题

• liuyang
• combobox
• createparams
• sdcfall
• tcreateparams
• es
• 显示
• ly
• liu yang
• tedit

• 帖主：zhaojinghui
• ly_liuyang
• dext

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载