компонент

← →
snake1977 (2003-08-25 13:18) [0]

Помогите разобраться. Не вызывается конструктор у компонента.
Я создао компонент наследник от TEdit. текст в низу:

type
TTextConvert=(tcNothing,tcAllBig,tcAllSmall,tcFirstBig,tcAllFirstBig);
TSnakeEdit = class(TEdit)
private
{ Private declarations }
fTextConvert:TTextConvert;
LastIndex:Integer;
Procedure onKeyPressed(Sender: TObject; var Key: Char);
protected
{ Protected declarations }
public
{ Public declarations }
Constructor Create(aOwner:TComponent); override;
Destructor Free;
published
{ Published declarations }

property TextConvert:TTextConvert read fTextConvert write fTextConvert default tcNothing;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Standard", [TSnakeEdit]);
end;

Constructor TSnakeEdit.Create;
Begin
messageBox(0,"","",MB_OK);
inherited Create(aOwner);
onKeyPress:=onKeyPressed;
LastIndex:=0;
End;

Procedure TSnakeEdit.onKeyPressed;
Var i:Integer;
s:String;
Begin
end;

чего я не так сделал?? :(

← →
Крот (2003-08-25 13:21) [1]

Должно быть

TShapeEdit.Create( AOwner: TComponent) begin end;

← →
snake1977 (2003-08-25 13:22) [2]

дык я так и написал в описании класса

← →
Skier (2003-08-25 13:25) [3]

1)Destructor Free; -> destructor Destroy; override;
2)
Constructor TSnakeEdit.Create (AOwner: TComponent);
Begin
inherited Create(aOwner);
messageBox(0,"","",MB_OK);
onKeyPress:=onKeyPressed;
LastIndex:=0;
End;

← →
snake1977 (2003-08-25 13:30) [4]

спасибо за помощь, но
на строку
1)Destructor Free; -> destructor Destroy; override;
будет ругаться, Cannot ovveride static method
а по поводу
2)
Constructor TSnakeEdit.Create(AOwner: TComponent);
ежели я напишу aOwner, AOWNER, aOwNeR, то смысл не изменится :)

ларчик открывался просче :)
дело в том я то я при разработке проекта нажал SaveAs и записал исходник в другой каталог, а вот в программе в которой я тестировал компонент осталась ссылка на старый исходник в котором небыло ничего кроме описания :))
вот :)

← →
Skier (2003-08-25 13:32) [5]

> спасибо за помощь, но
> на строку
> 1)Destructor Free; -> destructor Destroy; override;
> будет ругаться, Cannot ovveride static method
> а по поводу

Это Destroy-то static method ?!

← →
Darrin (2003-08-25 13:43) [6]

Вместо
Destructor Free;
надо
Destructor Destroy; Override;

компонент Найти похожие ветки