Problemas con la propiedad Parent

[[Io]]

Gracias por tu interes.

Antes de nada...¿Qué es lo raro?, el problema del parent o mis problemas con las ventanas mdi.

Sobre CreateParented, lo voy haber.

Chao

[dec]

Hola,

Empezado por _Io

¿Qué es lo raro?

Pues lo raro (me parece a mí, pero, ya digo que no lo he comprobado) es que tengas problemas en hacer lo que mencionas. Es decir, no es la primera vez que uno quiere poner un formulario "en otro", y esto se consigue (por lo menos) utilizando la propiedad "Parent". Pero, siempre que intenté algo así no recuerdo haberme topado con los problemas que mencionas, por eso decía que me parece raro, raro, raro.

Claro que cosas más raras se habrán visto.

[[Io]]

Con la pregunta ¿Qué es lo raro?. Sólo quería saber si te referias a la pregunta en sí o a mis problemas con los mdi.

Efectivamente, como tú bien dices todo el mundo ha creado alguna vez, una ventana desde otra. Hasta yo . Pero nunca he utilizado el parent. y ahora que lo he utilizado me ha pasado ésto. El objetivo que andaba buscando era que la ventana creada estuviera delimitada en movimiento y espacio a su ventana padre.(Estilo mdi)

Chao

[dec]

Hola,

Empezado por _Io

Efectivamente, como tú bien dices todo el mundo ha creado alguna vez, una ventana desde otra.

No, no, pero, yo me refiero, precisamente, a crear una ventana no desde otra, sino en otra, o sea, justo lo que quieres hacer tú. Y no recuerdo haber tenido los problemas que mencionas. Pero, claro está... dependerá de no pocas variables, o sea. Prueba a ver con el "CreateParented" (aunque no sé porqué me da ahora en pensar que no va a serte del todo útil, porque no se consigue exactamente lo mismo que utilizando la propiedad "Parent").

¿Porqué no haces una cosa? Inicia un nuevo proyecto a modo de prueba, y ahí trata de crear un formulario dentro de otro. Que el primero tenga componentes "TEdit" y demás, y pruebas a ver qué ocurre. Si te funcionase (como lo espero) habría que pensar más bien en que algo en tu proyecto está influyendo en los problemas que te surgen... a ver cómo salimos de ahí entonces...

[[Io]]

Como una imagen vale más que mil palabras...

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(self) do
  begin
    parent:=self;
    show;
  end;
end;

end.

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=caFree;
end;

end.

Haber si ha suerte y me dices dónde me he equivocado.

Adjunto el ejemplo, que por cierto me da un error al compilar, me sale la ventana CPU y no lo sé interpretar.
Saludos

[dec]

Hola,

Bueno. El código fuente es correcto (creo yo). Y según la ayuda de Delphi la propiedad "Parent" puede usarse para lo que quieres. Empero, la única forma (en las pruebas que he hecho) de que la cosa funcione tal como esperas, es cambiar la propiedad "BorderStyle" del "segundo formulario" por "bsNone". Con el resto de valores posibles para esta propiedad, efectivamente, ocurre lo que dices, y,... ahora mismo no sé porqué.

Pero, prueba a ver cambiando esa propiedad que te comento: a lo mejor te es bastante para conseguir lo que quieres.

Edito:

Empezado por _Io

Adjunto el ejemplo, que por cierto me da un error al compilar, me sale la ventana CPU y no lo sé interpretar.

No he tenido problemas para compilar el ejemplo. Utilizo Delphi 7 Update 2 con Windows XP SP2... por si sirve de algo.

[[Io]]

Gracias Dec, por tú interés .
Chao