会员: 密码:  免费注册 | 忘记密码 | 会员登录 网页功能: 加入收藏 设为首页 网站搜索  
 安全技术技术文档
  · 安全配制
  · 工具介绍
  · 黑客教学
  · 防火墙
  · 漏洞分析
  · 破解专题
  · 黑客编程
  · 入侵检测
 安全技术论坛
  · 安全配制
  · 工具介绍
  · 防火墙
  · 黑客入侵
  · 漏洞检测
  · 破解方法
  · 杀毒专区
 安全技术工具下载
  · 扫描工具
  · 攻击程序
  · 后门木马
  · 拒绝服务
  · 口令破解
  · 代理程序
  · 防火墙
  · 加密解密
  · 入侵检测
  · 攻防演示
技术文档 > Delphi
可以设置对齐方式的Edit组件
发表日期:2005-03-15 23:57:37作者:� 出处:  

{**
 * 单元:FloatEdit
 * 作者:网事如风
 * 作用:可以设置对齐方式的Edit
 * 使用:
 **}
 
 unit RightEdit;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Controls, StdCtrls;
 
 type
   TRightEdit = class(TEdit)
   private
     FAlignment   : TAlignment;      //对齐方式
     procedure SetAlignment(Value: TAlignment);
   protected
     procedure CreateParams(var Params: TCreateParams); override;
   public
     { Public declarations }
   published
     property Alignment: TAlignment read FAlignment write SetAlignment;
   end;
 
 procedure Register;
 
 implementation
 
 procedure Register;
 begin
     RegisterComponents('MyCompent', [TRightEdit]);
 end;
 
 
 procedure TRightEdit.CreateParams(var Params: TCreateParams);
 begin
     inherited CreateParams(Params);
     Case FAlignment of
         taLeftJustify  : Params.Style := Params.Style + ES_LEFT;
         taRightJustify : Params.Style := Params.Style + ES_RIGHT;
         taCenter       : Params.Style := Params.Style + ES_CENTER;
     end;
 end;
 
 procedure TRightEdit.SetAlignment(Value: TAlignment);
 begin
     if FAlignment <> Value then
     begin
         FAlignment := Value;
         RecreateWnd;
     end;
 end;
 end.

返回顶部】 【打印本页】 【关闭窗口

关于我们 / 给我留言 / 版权举报 / 意见建议 / 网站编程QQ群   
Copyright ©2003- 2025 Lihuasoft.net webmaster(at)lihuasoft.net 加载时间 0.00142