笨人的没可能(100分)

  • 主题发起人 主题发起人 骆璇
  • 开始时间 开始时间

骆璇

Unregistered / Unconfirmed
GUEST, unregistred user!
我想做一个控件由edit和speedbutton组成的,请问怎样由两个祖先类组成一个控件呀?
 
用frame

新建一个frame,放上edit与speedButton后。。。在你的frame上右键,
使用时点击frame,选你制做的Frame.
 
继承Edit
在组件的构造过程中创建speedButton
 
楼上聪明的,可否详细点呀,最好写个程序出来啦,我可是个笨人
 
继承Edit
在组件的构造过程中创建speedButton
 
请问怎加?在哪里加?
 
哈哈哈!说句实在话,请别见外,这是Delphi控件设计入门的入门
一般来说,应该从TWinControl派生!
 
呵呵,用Frame吧!或者ActiveX
 
Tmyedit=class(TPanel)
private
FMyBtn:TSpeedButton;
FMyEdit:TEdit;
public
constructor Create(AOwner:TComponent);override;
destructot destroy;override;
published
property Button:TSpeedButton read FMyBtn;
property Edit:TEdit read FMyedit;
end;
procedure Register;
implementation
constructor TMyEdit.Create(AOwner:TComponent);override;
begin
inherited;
FMyBtn:=TSpeedButton.Create(nil);
FMyedit:=TEdit.Create(nil);
//调好位置

end;

 
unit mybutton;

interface
uses
Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,
buttons,stdctrls;

type
Tmyedit=class(TPanel)
private
FMyBtn:TSpeedButton;
FMyEdit:TEdit;
public
( constructor Create(AOwner:TComponent);override;)报错
destructor destroy;override;
published
property Button:TSpeedButton read FMyBtn;
property Edit:TEdit read FMyedit;
end;

procedure Register;


implementation

procedure Register;
begin
RegisterComponents('samples', [Tmyedit]);
end;

( constructor TMyEdit.Create(AOwner:TComponent); override;)报错
begin
inherited;
FMyBtn:=TSpeedButton.Create(nil);
FMyedit:=TEdit.Create(nil);
FMyedit.Left := 0;
FMyedit.Top := 0;
FMyedit.Height := 30;
FMyedit.Width := 100
FMyBtn.Left := 101;
FMyBtn.Top := 0;
FMyBtn.Height := 30;
FMyBtn.Width := 30;
end;






destructor Tmyedit.destroy;
begin
FMyBtn.Free;
FMyedit.Free;
inherited;
end;

end.



两处报错,请问这两处有什么作用的,可否删除
 
rx 的控件 comboedit 不就是吗 ?

可以看源码 看不懂的话也别写了
 
现在程序运行正确,但为何我定了FMyBtn和FMyedit的位置后,仍在控件中看不见?是否隐藏了?
 
后退
顶部