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.
两处报错,请问这两处有什么作用的,可否删除