写控件的问题

[一点点凋落]

我写了个控件，从TPanel上继承的，上面还有一个TEdit和一个TButton
procedure TDropTree.WMSize(var message: TWMSize);
begin
inherited;
FEdit.Width:=message.Width-20;
FButton.Left:=FEdit.Width;
FButton.Width:=20;
end;

这样在设计期显示是正常的，但是在运行期FEdit的宽度没有改变，是什么原因？

[xiaocha]

procedure TDropTree.WMSize(var message: TWMSize);
begin
inherited;
FEdit.Width:=Width-20;
FButton.Left:=FEdit.Width;
FButton.Width:=20;
end;

[一点点凋落]

不行，能解释一下吗？

[qiuafa]

劫分&捧场

[citytramper]

你要实现什么效果

[一点点凋落]

就是panel拖动时候，里面的EDIT和BUTTON也跟着动。
上面的代码在设计期是对的，结果运行就还是老样子。

[wooden954]

是不是需要把设计期间的数据保存起来？

[cjsh]

你设计时就应该放到变更里面去后然后再变更里面读。

[Kingron]

设置Anchors就可以了，干吗要写代码？

[Kingron]

搂住：这个可是你要的？
unit ButtonEdit;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
TButtonEdit = class(TWinControl)
private
{ Private declarations }
FButton: TButton;
FEdit: TEdit;
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy;override;
published
{ Published declarations }
property Button: TButton read FButton write FButton;
property Edit: TEdit read FEdit write FEdit;
end;

procedure Register;

implementation

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

{ TButtonEdit }

constructor TButtonEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FButton := TButton.Create(Self);
FButton.Parent := Self;
FButton.Align := alRight;
FButton.Width := 30;
FButton.Caption := '...';

FEdit := TEdit.Create(Self);
FEdit.Align := alClient;
FEdit.Parent := Self;

Height := FEdit.Height;
Width := FEdit.Width + FButton.Width;
end;

destructor TButtonEdit.Destroy;
begin
FButton.Free;
FEdit.Free;
inherited;
end;

end.

[一点点凋落]

怎么设置，可以说具体点吗