> [21]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   SpeedButton1: TSpeedButton;
   procedure FormCreate(Sender: TObject);
 private
   SpeedButton11: TSpeedButton;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
SpeedButton11 := TSpeedButton.Create(self) ;
SpeedButton11.Visible := True;
SpeedButton11.Parent:=Edit1;
SpeedButton11.Align:=alRight;
SpeedButton11.Cursor:=crArrow;
end;

end.

unit LabelEditButton;

interface

uses
 SysUtils, Classes, Controls, ExtCtrls, StdCtrls, Graphics, Forms, Buttons;

type
 TLabelEditButton = class(TCustomPanel)
 private
   { Private declarations }
   FPanel:TPanel;
   FLabel: TLabel;
   FEdit:TEdit;
   FButton:TSpeedButton;
 protected
   { Protected declarations }
 public
   { Public declarations }
   constructor Create(AOwner:TComponent); override;
 published
   { Published declarations }
   property Label1: TLabel read FLabel;
   property Edit1:TEdit read FEdit write FEdit;
   property Sbutton:TSpeedButton read FButton;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('Samples', [TLabelEditButton]);
end;

{ TLabelEditButton }

constructor TLabelEditButton.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 BevelOuter:=bvNone;
 Height:=21;
 Width:=150;

 FLabel:=TLabel.Create(Self);
 FLabel.Align:=alLeft;
 FLabel.Parent:=Self;
 FLabel.Layout:=tlCenter;

 FPanel:=TPanel.Create(Self);
 FPanel.Align:=alClient;
 FPanel.BevelOuter:=bvNone;
 FPanel.BorderStyle:=bsSingle;
 FPanel.Parent:=Self;

 FButton:=TSpeedButton.Create(FPanel);
 FButton.Align:=alRight;
 FButton.Caption:='...';
 FButton.Parent:=FPanel;

 FEdit:=TEdit.Create(FPanel);
 FEdit.Align:=alClient;
 FEdit.BorderStyle:=bsNone;
 FEdit.Parent:=FPanel;

end;
end.