Wird Komponente aus DFM geladen?

[himitsu]

@Deep-Sea: Das ist ja mein Problem ... dieses Flag vurde von der VCL einfach vergessen.
siehe "im Programm von VCL aus DFM laden"

Ach ja, Delphi XE ... wo anders hab ich's noch nicht probiert.

Es handelt sich um eine Serverkomponente mit Autostartfunktion und dieses Autostart macht mir grad Sorgen ... also wann ich den Server Starte, wenn Autostart=true, da dieses standardmäßig auf True steht.



Hab mal schnell eine Demo erstellt.

Code:

in Formdesigner einbinden:

TMyTestComponent.Create(459394672) [csDesigning]
TMyTestComponent.AfterConstruction(459394672) [csDesigning]

in Formdesigner laden/anzeigen:

TMyTestComponent.Create(459394192) [csDesigning]
TMyTestComponent.AfterConstruction(459394192) [csDesigning]
TMyTestComponent.SetText(459394192) = "abcdef" [csLoading,csReading,csDesigning]
* TMyTestComponent.Loaded(459394192) [csDesigning]

im Programm von VCL aus DFM laden

Debug-Ausgabe: TMyTestComponent.Create(18795632) []
Debug-Ausgabe: TMyTestComponent.AfterConstruction(18795632) []
Debug-Ausgabe: TMyTestComponent.SetText(18795632) = "abcdef" [csLoading,csReading]
* Debug-Ausgabe: TMyTestComponent.Loaded(18795632) []

dynamisch erzeugen (Button1)

Debug-Ausgabe: TMyTestComponent.Create(18796112) []
Debug-Ausgabe: TMyTestComponent.AfterConstruction(18796112) []
* fehlt
Debug-Ausgabe: TMyTestComponent.SetText(18796112) = "123456" []

Das * zeigt, wo ich spätestens meine Aktion ausführen möchte.
fehlt: hätte es ja gerne in Create/AfterConstruction gemacht, aber da gibt es ja kein csLoading, woran ich mich orientieren kann, ob jetzt oder erst in Loaded.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
  C: TMyTestComponent;
begin
  C := TMyTestComponent.Create(Self);
  C.Text := '123456';
end;

Delphi-Quellcode:

unit MyTestComponent;

interface

uses
  Windows, SysUtils, Classes, Controls, ExtCtrls, Dialogs, TypInfo;

type
  TMyTestComponent = class(TPaintBox)
  private
    { Private-Deklarationen }
    FText: String;
    function Conv(C: TComponentState): String;
    procedure SetText(Value: String);
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    procedure AfterConstruction; override;
    procedure Loaded; override;
  published
    { Published-Deklarationen }
    property Text: String read FText write SetText;
  end;

procedure Register;

implementation

function TMyTestComponent.Conv(C: TComponentState): String;
begin
  Result := SetToString(PTypeInfo(TypeInfo(TComponentState)), Word(C), True)
end;

procedure TMyTestComponent.SetText(Value: String);
begin
  OutputDebugString(PChar(Format('TMyTestComponent.SetText(%d) = "%s" %s',
    [Integer(Self), Value, Conv(ComponentState)])));
  MessageBox(0, PChar(Format('TMyTestComponent.SetText(%d) = "%s" %s',
    [Integer(Self), Value, Conv(ComponentState)])), nil, 0);
end;

constructor TMyTestComponent.Create(AOwner: TComponent);
begin
  inherited;
  FText := 'abcdef';
  OutputDebugString(PChar(Format('TMyTestComponent.Create(%d) %s',
    [Integer(Self), Conv(ComponentState)])));
  MessageBox(0, PChar(Format('TMyTestComponent.Create(%d) %s',
    [Integer(Self), Conv(ComponentState)])), nil, 0);
end;

procedure TMyTestComponent.AfterConstruction;
begin
  inherited;
  OutputDebugString(PChar(Format('TMyTestComponent.AfterConstruction(%d) %s',
    [Integer(Self), Conv(ComponentState)])));
  MessageBox(0, PChar(Format('TMyTestComponent.AfterConstruction(%d) %s',
    [Integer(Self), Conv(ComponentState)])), nil, 0);
end;

procedure TMyTestComponent.Loaded;
begin
  inherited;
  OutputDebugString(PChar(Format('TMyTestComponent.Loaded(%d) %s',
    [Integer(Self), Conv(ComponentState)])));
  MessageBox(0, PChar(Format('TMyTestComponent.Loaded(%d) %s',
    [Integer(Self), Conv(ComponentState)])), nil, 0);
end;

procedure Register;
begin
  RegisterComponents('himitsu', [TMyTestComponent]);
end;

end.