Delphi 2009 之 TButtonedEdit 的功能使用

Unit1;
<script type="text/javascript"><!--
google_ad_client = "pub-2487365762057517";
google_ad_slot = "5709514408";
google_ad_width = 200;
google_ad_height = 200;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ImgList;

TForm1 = (TForm)
ImageList1: TImageList;
ButtonedEdit1: TButtonedEdit;
Button1: TButton;
FormCreate(Sender: TObject);
ButtonedEdit1LeftButtonClick(Sender: TObject);
ButtonedEdit1RightButtonClick(Sender: TObject);
Button1Click(Sender: TObject);
;

Form1: TForm1;

TForm1FormCreate(Sender: TObject);

ButtonedEdit1Alignment := taCenter;

ButtonedEdit1Images := ImageList1;

ButtonedEdit1LeftButtonVisible := True;
ButtonedEdit1LeftButtonHotImageIndex      := ;
ButtonedEdit1LeftButtonImageIndex         := ;
ButtonedEdit1LeftButtonPressedImageIndex  := ;
ButtonedEdit1LeftButtonDisabledImageIndex := ;

ButtonedEdit1RightButtonVisible := True;
ButtonedEdit1RightButtonHotImageIndex      := ;
ButtonedEdit1RightButtonImageIndex         := ;
ButtonedEdit1RightButtonPressedImageIndex  := ;
ButtonedEdit1RightButtonDisabledImageIndex := ;
;

TForm1ButtonedEdit1LeftButtonClick(Sender: TObject);

ButtonedEdit1Text := ;
ButtonedEdit1SelectAll;
;

TForm1ButtonedEdit1RightButtonClick(Sender: TObject);

ButtonedEdit1Text := ;
ButtonedEdit1SelectAll;
;

TForm1Button1Click(Sender: TObject);

ButtonedEdit1LeftButtonEnabled :=  ButtonedEdit1LeftButtonEnabled;
ButtonedEdit1RightButtonEnabled :=  ButtonedEdit1RightButtonEnabled;
;

.

Form1: TForm1
Left =
Top =
Caption =
ClientHeight =
ClientWidth =
Color = clBtnFace
FontCharset = DEFAULT_CHARSET
FontColor = clWindowText
FontHeight = -
FontName =
FontStyle = []
OldCreateOrder = False
Position = poDesigned
OnCreate = FormCreate
PixelsPerInch =
TextHeight =
ButtonedEdit1: TButtonedEdit
Left =
Top =
Width =
Height =
TabOrder =
Text =
OnLeftButtonClick = ButtonedEdit1LeftButtonClick
OnRightButtonClick = ButtonedEdit1RightButtonClick

Button1: TButton
Left =
Top =
Width =
Height =
Caption =
TabOrder =
OnClick = Button1Click

ImageList1: TImageList
Left =
Top =
Bitmap =