OnFormCreate (Paintbox)

[Progman]

Im OnCreate wird doch erst alles erzeugt, da ist die PaintBox möglicherweise noch gar nicht "functionsfähig". Versuchs doch mal im OnShow.

[Matze]

Zitat von Progman:

Im OnCreate wird doch erst alles erzeugt, da ist die PaintBox möglicherweise noch gar nicht "functionsfähig".

Stimmt das eigentlich?
Früher glaubte ich das auch, aber ich konnte noch nie einen Fehler erzeugen, indem ich im OnCreate auf VCL-Controls zugegriffen habe.
Das funktionierte bisher immer.

[xZise]

Moin,
wenn man sich TCustomForm.Create() anguckt, dann ruft er FOnCreate relativ spät auf:

Delphi-Quellcode:

constructor TCustomForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IF DEFINED(CLR)}
  GlobalNameSpace.AcquireWriterLock(MaxInt);
{$ELSE}
  GlobalNameSpace.BeginWrite;
{$IFEND}
  try
    FCreatingMainForm := Application.FCreatingMainForm;
    if FCreatingMainForm then
      Application.FCreatingMainForm := False;

    InitializeNewForm;
    if (ClassType <> TForm) and not (csDesigning in ComponentState) then
    begin
      Include(FFormState, fsCreating);
      try
        if not InitInheritedComponent(Self, TForm) then
          raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
      finally
        Exclude(FFormState, fsCreating);
      end;
{$IF NOT DEFINED(CLR)}
      if OldCreateOrder then
{$IFEND}
        DoCreate;
    end;
  finally
{$IF DEFINED(CLR)}
    GlobalNameSpace.ReleaseWriterLock;
{$ELSE}
    GlobalNameSpace.EndWrite;
{$IFEND}
  end;
end;

MfG
Fabian

[Satty67]

Wenn OldCreateOrder false ist, dann im gezeigten Quelltext garnicht?

Delphi-Quellcode:

procedure TCustomForm.AfterConstruction;
begin
  if not OldCreateOrder then DoCreate;

[xZise]

Stimmt, aber wann wird AfterConstruction aufgerufen?

MfG
Fabian

[Satty67]

Der Name lässt vermuten, noch später?

(virtuelle Methode in TObject, Windows Interna sind ja nicht gerade meine Stärken)