Ver Mensaje Individual
  #9  
Antiguo 17-01-2012
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Para mayor claridad, este es el código de TCustomForm.AfterConstruction:

Código Delphi [-]
procedure TCustomForm.AfterConstruction;
begin
  if not OldCreateOrder then DoCreate;
  if fsActivated in FFormState then
  begin
    Activate;
    Exclude(FFormState, fsActivated);
  end;
end;

mientras que DoCreate es así:

Código Delphi [-]
procedure TCustomForm.DoCreate;
begin
  if Assigned(FOnCreate) then
  try
    FOnCreate(Self);
  except
    if not HandleCreateException then
      raise;
  end;
  if fsVisible in FFormState then Visible := True;
end;

Ahí es donde se llama a OnCcreate, a menos, que OldCreateOrder sea true.

// Saludos
Responder Con Cita