Le contrôle 'xxx' a pas de fenêtre parent

Il ya quelques choses importantes à retenir:

1. Lors de l'utilisation de Dll, votre DLL et votre EXE ont chacun une instance de l'Application qui se battent pour le contrôle. Les Contrôles dans votre DLL verrez l'instance de l'Application qui appartient à la DLL; les Contrôles dans votre EXE verrez l'instance de l'Application qui appartient à la EXE. Cette lutte n'est pas là lors de l'utilisation de paquets, alors il n'y aura qu'une seule instance de l'Application.
2. Images sont des Contrôles, mais ils ne sont pas des Formes.
3. Lors de l'utilisation de Contrôles dans une application, ils ne peuvent pas visuellement exister sans un Contrôle parent (généralement un Formulaire ou un conteneur qui a un parent de la hiérarchie vers une Forme).
4. Certains Contrôles ne peuvent pas l'exposer leurs fonctionnalités, sauf s'ils existent visuellement et de la validité du parent.

Essayer de reproduire votre problème à l'intérieur de l'EXE; si vous ne pouvez pas reproduire, c'est probablement la première chose dans la liste ci-dessus.

--jeroen

OriginalL'auteur Jeroen Wiert Pluimers

J'ai trouvé ceci (CreateParams est appelée dans le cadre de CreateWnd):

procedure TCustomFrame.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if Parent = nil then
    Params.WndParent := Application.Handle;
end;

Et De L'Application.Handle = 0 donc il jette toujours l'erreur plus tard dans CreateWnd.

Après la lecture de ce
Delphi: Comment appeler hérité hérité de l'ancêtre sur une méthode virtuelle?

J'ai résolu en remplaçant CreateParams dans mon cadre de manquer le tCustomFrame version:

type
  tCreateParamsMethod = procedure(var Params: TCreateParams) of object;

type
  tMyScrollingWinControl = class(TScrollingWinControl);

procedure TDelphiFrame.CreateParams(var Params: TCreateParams);
var
  Proc: tCreateParamsMethod;
begin
  TMethod(Proc).Code := @TMyScrollingWinControl.CreateParams;
  TMethod(Proc).Data := Self;

  Proc(Params);
end;

Maintenant, il suffit de jeter des erreurs lorsque vous essayez de définir le focus sur subcontrols, je pense que je vais le corriger en cas d'interception d'WM_FOCUS mais nous allons comment il va partir d'ici.

function CreateFrame(hwndParent: HWnd): HWnd; stdcall;
var
  frame: tFrame;
begin
  Result := 0;
  try
    frame := TDelphiFrame.CreateParented(hwndParent);
    Result := frame.Handle;
  except on e: Exception do
    ShowMessage(e.Message);
  end;
end;

OriginalL'auteur Frank

Je pense que c'est très cool de la solution. Je pense qu'il n'est pas essayé avant 🙂
Je suis à l'aide d'un Mannequin Parent (qui est une Forme).

function MyFrame_Create(hApplication, hwndParent:THandle; X, Y, W, H:Integer):Pointer; stdcall;
var Fr: TMyFrame;
    F:  TForm;
    CurAppHandle: THandle;
begin
  CurAppHandle:=Application.Handle;
  Application.Handle:=hApplication;
  //---
  F:=TForm. Create(Application);//Create a dummy form
  F.Position:=poDesigned;
  F.Width:=0; F.Top:=0; F.Left:=-400; F.Top:=-400;//Hide Form
  F.Visible:=True;
  //---
  Fr:=TMyFrame.Create(Application);
  Fr.Parent:=F;//Set Frame's parent
  //Fr.ParentWindow:=hwndParent;
  Windows.SetParent(Fr.Handle, hwndParent);//Set Frame's parent window
  if CurAppHandle>0 then Application.Handle:=CurAppHandle;
  //---
  Fr.Left:=X;
  Fr.Top:=Y;
  Fr.Width:=W;
  Fr.Height:=H;
  Result:=Fr;
end;//MyFrame_Create

procedure MyFrame_Destroy(_Fr:Pointer); stdcall;
var Fr: TMyFrame;
    F: TObject;
begin
 Fr:=_Fr;
 F:=Fr.Parent;
 Fr.Parent:=Nil;
 if (F is TForm) then F.Free;
 //SetParent(Fr.Handle, 0);
 //Fr.ParentWindow:=0;
 Fr.Free;
end;//MyFrame_Destroy

OriginalL'auteur suat dmk