Problemas con la propiedad Parent

[[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

[dec]

Hola,

Empezado por _Io

Gracias Dec, por tú interés .

¿Eso es que te funcionó o qué?

[[Io]]

No
Efectivamente, la ventana con el borderstyle bsNone, si queda en el formulario
padre, pero..., por ejemplo el evento OnActivate no entra, y es en este evento, donde inicializo mis variables, ademas hay controles que no se inicializan bien, por ejemplo un componente heredado de stringGrid, no se pinta adecuadamente (se queda toda la rejilla en negro), en fin.....

Seguiré buscando.

Aprovecho tu interes, para comentarte lo que estoy buscando.

Partimos de un formulario principal que funciona como fondo de escritorio,con menu principal y barra de herramientas,la imagende fondo generalmente en diseño es una foto de Angelina jolie .

desde esta ventana principal se pueden ir activando distintas ventanas de gestión, las cuales el usuario las puede ir manejando a su inters etc.
Hasta aquí todo va bien.

El problema básicamente radica en el diseño. Quiero que una/s determinada/s ventanas con una funcion determinada (TPV), abarque todo el area cliente de la ventana principal, sin que por ello afecte al resto de ventanas de gestión que se podrán seguir manejando ( obviamente estarán superpuestas a las ventanas TPV)

Espero no haber liado mucho el tema.

Saludos

[dec]

Hola,

Empezado por _Io

(...) por ejemplo el evento OnActivate no entra, y es en este evento, donde inicializo mis variables, ademas hay controles que no se inicializan bien, por ejemplo un componente heredado de stringGrid, no se pinta adecuadamente (se queda toda la rejilla en negro), en fin.....

Tal vez, y digo tal vez, podrías probar con el evento "OnShow". Y aprovechar ahí incluso para repintar la rejilla que mencionas... con el método "Repaint", ya sabes, con el que tiene que contar dicha rejilla.

Por otro lado, tal vez sea la respuesta más fácil, y además, si ya te has liado haciéndolo como dices... no sé yo, pero, ¿te planteaste que la aplicación fuera de tipo MDI? Ahora mismo no se me ocurre otra cosa... y lo lamento.

[[Io]]

Gracias de nuevo.
Como dicen en una pelicula......

La solución vendrá por si sola

Chao