Hallo,
ich habe eine kleine Testkonente unter Delphi7 geschrieben:
Delphi-Quellcode:
unit TestComponent;
interface
uses
Windows, Messages, SysUtils, Classes;
type
TTestComponent =
class(TComponent)
private
{ Private declarations }
FTest: integer;
constructor Create(AOwner: TComponent);
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property Test: Integer
read FTest
write FTest
default 10;
end;
procedure Register;
implementation
constructor TTestComponent.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Test:=10;
end;
procedure Register;
begin
RegisterComponents('
Samples', [TTestComponent]);
end;
end.
Ich hätte erwartet, dass ich im Object Inspector bei der Property den Default Wert 10 sehe, ich sehe aber Null. Wenn ich die Komponente auf einer Form verwende, und dort TestComponent1.Test abfrage, ist die auch auf Null gesetzt. Was mache ich falsch?
Danke für Eure Hilfe!