Parent, ParentWindow, objetos y el error Control has no parent Window

[dec]

Hola,

Houston, we have a problem. O sea, vente con la caja-herramientas Pepe que la hemos liado. Rápido. Venga. Vamos. Dale. Ya tenías que estar aquí, Pepe. Pero, creo que me estoy yendo por las ramas... pido disculpas y sigo adelante a ver si soy capaz de centrar el asunto que me preocupa y me está causando problemas y alguna cana tal vez. La madre que lo parió.

La verdad es que no sé cómo explicarlo bien. Por eso he tratado de montar "algo" para reproducir el problema, de modo que vosotros mismos podáis ver dicho problema con vuestros propios ojos. El problema se da con otros componentes, y en otra situación, pero, al cabo creo que he conseguido el mismo error, es decir, reproducir este.

En el archivo adjunto (proyecto de pruebas) lo veréis más claro, pero, básicamente se trata de lo siguiente:

1º Es menester crear un objeto dentro de una determinada ventana cuyo "Handle" conocemos

2º No puede usarse su propiedad "Parent", sino que hay que recurrir a "ParentWindow"

3º El objeto que hay que crear contiene a su vez un objeto en su interior

4º Este segundo objeto (dentro del primero) está al tanto del ratón, y, cuando se hace clic sobre el objeto, se hace una llamada a "SetFocus"

5º Es esta llamada a "SetFocus" la que "levanta" el error, puesto que dicho objeto "embebido" en el otro "No has parent Window"...

Ayer estuve varias horas intentando dar con una solución. Busqué mucho por Internet, y encontré bastante información, pero, nada clara (para mí) y, todo lo que intenté fue un fracaso, no funcionó.

Hoy he conseguido montar esta especie de "escenario" para poder probar el asunto más claramente, puesto que creo que si se consigue una solución para el problema en este escenario (ver archivo adjunto) la misma será válida también para cualquier otro similar.

No sé. A ver si me podéis echar una mano. No corre prisa alguna, empero, agradecería cualquier comentario acerca de qué puede estar pasando. Seguro que hay gente aquí mucho más experimentada que yo en estos menesteres. En todo caso muchas gracias a todos por la atención. De verdad. De la buena. Muchas gracias de antemano.

[[eduarcol]]

Amigo no se si a los demas tambien, pero a mi no me deja descargar el adjunto

[[seoane]]

Y por que en vez de usar Create no usas CreateParented.

Es decir:

Código Delphi [-]
FEmbeddedPanel := TEmbeddedPanel.CreateParented(Self.Handle);

FObjectPanel := TObjectPanel.CreateParented(Self.Handle);

[dec]

Hola,

Vaya. Es cosa de los permisos de usuario. Sé que no es lo mismo, porque tendrás que hacer un esfuerzo más, pero, aquí está el código fuente del asunto. Tienes que incluirlo en el formulario principal de un proyecto nuevo de Delphi, creo que me entiendes.

Código Delphi [-]
unit UMainFrm;

interface

uses
  Forms, StdCtrls, ExtCtrls, Classes, Controls;

type
  TEmbeddedPanel = class(TPanel)
  protected
    procedure MouseDown(Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer); override;
  end;

type
  TObjectPanel = class(TPanel)
  private
    FEmbeddedPanel: TEmbeddedPanel;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy(); override;
  end;

type
  TmainFrm = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FObjectPanel: TObjectPanel;
  end;

var
  mainFrm: TmainFrm;

implementation

{$R *.dfm}

{ TEmbeddedPanel }

procedure TEmbeddedPanel.MouseDown(Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  SetFocus();
end;

{ TObjectPanel }

constructor TObjectPanel.Create(AOwner: TComponent);
begin
  inherited;
  FEmbeddedPanel := TEmbeddedPanel.Create(self);
  InsertControl(FEmbeddedPanel);
  Self.Top := 10;
  Self.Left := 10;
  Self.Width := 100;
  Self.Height := 100;
  with FEmbeddedPanel do
  begin
    Top := 10;
    Left := 10;
    Width := 50;
    Height := 50;
  end;
end;

destructor TObjectPanel.Destroy();
begin
  FEmbeddedPanel.Free();
  inherited;
end;

{ TmainFrm }

procedure TmainFrm.FormCreate(Sender: TObject);
begin
  FObjectPanel := TObjectPanel.Create(nil);
  FObjectPanel.ParentWindow := self.Handle;
end;

procedure TmainFrm.FormDestroy(Sender: TObject);
begin
  FObjectPanel.Free();
end;

end.

[dec]

Hola,

Gracias por tu respuesta Domingo. Juraría que he probado con "CreateParented", pero, como no estoy seguro de haberlo hecho con todos los componentes implicados, voy a hacerlo ahora mismo sobre el "escenario de pruebas" y, si funciona, lo haré en la aplicación real en que tiene que ir bien.

Ahora mismo cuento lo que sea. Gracias de nuevo.

[dec]

Hola,

Vale. No funciona del todo bien Domingo. De hecho creo que ya probé con ello, lo que pasa es que he probado ya tantas cosas que ni me acuerdo... lo digo en serio.

Ahora bien, en el ejemplo, efectivamente, puedes usar el "CreateParented" y el error no aparece. Sin embargo, si el panel de ejemplo "usara" tuviera que responder al teclado me temo que no lo haría.

¿Me temo? Bueno. No he podido hacer la prueba, pero, sí la he hecho en la aplicación real en que estoy teniendo el problema. Efectivamente, con el "CreateParent" no se da el error, pero, tampoco pueden manejarse el componente con el teclado.

Además, usando el CreateParented se produce una violación de acceso al cerrar la aplicación en una de cuyas ventanas "incrusto" el componente de marras. Bien. Tal vez esto pueda evitarse (tal vez no se prevén las consecuencias del CreateParented).

Pero, como digo, lo que más me "preocupa" de la solución es que aunque no aparece el error que menciono al principio, tampoco el componente es capaz de reaccionar al teclado, con lo que pierde parte de su funcionalidad.

De hecho, y como el problema se produce con sendas llamadas a "SetFocus", yo puedo no hacer estas, es decir, evitarlas, y de este modo todo va perfecto... salvo que el componente no actúa con el teclado... o sea que estaría en las mismas.

En fin. Gracias de todas formas Domingo. A lo mejor el ejemplo que he preparado no sirve muy bien, o habría que hacer algún cambio para comprobar que efectivamente el panel embebido puede actuar con el teclado.

[dec]

Hola,

Soy yo otra vez... qué pesado... Pues nada. Que probando si el panel embebido puede responder al teclado creándose mediante el "CreateParent"... así es. Es decir, que el asunto funciona Domingo, pero, funciona en el ejemplo, no en la aplicación real en que tengo los problemas.

Sigo liado haciendo pruebas. Me **** en la ****.

[[seoane]]

Caramba !!! que costumbre mas fea tienen los usuarios novatos de preguntar una cosa, cuando en realidad quieren saber otra

De que se trata en realidad, si hace falta podemos recurrir a la api

[[eduarcol]]

Dec, acabo de modificar tu codigo

Código Delphi [-]
TEmbeddedPanel = class(TEdit)

los create segun dijo seoane y si me funciona con el teclado, o sea pude escribir en el, no se que otra funcionalidad esperas con el teclado, al menos eso fue lo que te entendi


PD. Creo que respondimos los tres a la vez