gmendoza5426
02-04-2012, 17:38:41
Hola a todos!!
Tengo un problema si me pueden dar una mano po favor, tengo dos formularios, Form1 es mi formulario principal que contiene un Button1 y su propiedad FormStyle en fsMDIForm, luego tengo otro formulario Form2 que en la propiedad FormStyle esta en fsMDIChild, lo que quiero es levantar el Form2 desde el Form1 en modo Show, para llamar al Form2 lo hago desde el Button1 con el siguiente Codigo.
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to MDIChildCount - 1 do
if MDIChildren[i] is TForm2 then
begin
MDIChildren[i].WindowState := wsNormal;
MDIChildren[i].BringToFront;
Exit;
end;
Form2 := nil;
Form2 := TForm2.Create(Self);
Form2.BringToFront;
Form2.Show;
end;
El problema es que cuando levanto el Form2 me muestra por ejemplo el Button1 que esta en el Form1 por encima de cualquier elemento de mi Form2, hay alguna propiedad que deba tocar para solucionar eso.
Desde ya agradezco cualquier comentario
Tengo un problema si me pueden dar una mano po favor, tengo dos formularios, Form1 es mi formulario principal que contiene un Button1 y su propiedad FormStyle en fsMDIForm, luego tengo otro formulario Form2 que en la propiedad FormStyle esta en fsMDIChild, lo que quiero es levantar el Form2 desde el Form1 en modo Show, para llamar al Form2 lo hago desde el Button1 con el siguiente Codigo.
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to MDIChildCount - 1 do
if MDIChildren[i] is TForm2 then
begin
MDIChildren[i].WindowState := wsNormal;
MDIChildren[i].BringToFront;
Exit;
end;
Form2 := nil;
Form2 := TForm2.Create(Self);
Form2.BringToFront;
Form2.Show;
end;
El problema es que cuando levanto el Form2 me muestra por ejemplo el Button1 que esta en el Form1 por encima de cualquier elemento de mi Form2, hay alguna propiedad que deba tocar para solucionar eso.
Desde ya agradezco cualquier comentario