Delphi 2009 之 TButtonedEdit


本文整理自网络,侵删。

 

 

代码文件:

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, ImgList;

 

type

  TForm1 = class(TForm)

    ImageList1: TImageList;

    ButtonedEdit1: TButtonedEdit;

    Button1: TButton;

    procedure FormCreate(Sender: TObject);

    procedure ButtonedEdit1LeftButtonClick(Sender: TObject);

    procedure ButtonedEdit1RightButtonClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  ButtonedEdit1.Alignment := taCenter; {居中显示文本}

 

  ButtonedEdit1.Images := ImageList1;  {对应的图像列表}

 

  ButtonedEdit1.LeftButton.Visible := True;          {允许显示 LeftButton}

  ButtonedEdit1.LeftButton.HotImageIndex      := 0;  {左: 鼠标悬停时的图标}

  ButtonedEdit1.LeftButton.ImageIndex         := 1;  {左: 正常显示时的图标}

  ButtonedEdit1.LeftButton.PressedImageIndex  := 2;  {左: 鼠标点下时的图标}

  ButtonedEdit1.LeftButton.DisabledImageIndex := 6;  {LeftButton 不可用时的图标}

 

  ButtonedEdit1.RightButton.Visible := True;         {允许显示 RightButton}

  ButtonedEdit1.RightButton.HotImageIndex      := 3; {右: 鼠标悬停时的图标}

  ButtonedEdit1.RightButton.ImageIndex         := 4; {右: 正常显示时的图标}

  ButtonedEdit1.RightButton.PressedImageIndex  := 5; {右: 鼠标点下时的图标}

  ButtonedEdit1.RightButton.DisabledImageIndex := 6; {RightButton 不可用时的图标}

end;

 

{点击 LeftButton 的事件: OnLeftButtonClick}

procedure TForm1.ButtonedEdit1LeftButtonClick(Sender: TObject);

begin

  ButtonedEdit1.Text := ' LeftButton ';

  ButtonedEdit1.SelectAll;

end;

 

{点击 RightButton 的事件: OnRightButtonClick}

procedure TForm1.ButtonedEdit1RightButtonClick(Sender: TObject);

begin

  ButtonedEdit1.Text := ' RightButton ';

  ButtonedEdit1.SelectAll;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  ButtonedEdit1.LeftButton.Enabled := not ButtonedEdit1.LeftButton.Enabled;

  ButtonedEdit1.RightButton.Enabled := not ButtonedEdit1.RightButton.Enabled;

end;

 

end.

相关阅读 >>

Delphi xe5开发android程序调用电话相关功能(短信息和电话)

Delphi xe 遍历指定数据库,清空各表记录

Delphi 检查声卡是否安装

Delphi 限制窗体大小的最大值与最小值

Delphi form工程创建

Delphi判断驱动器类型

Delphixe firemonkey 如何画图

Delphi 通过按键 esc 关闭程序

Delphi unigui 调用js

Delphi路径分割符处理相关函数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...