Ver Mensaje Individual
  #1  
Antiguo 05-05-2011
Lenny Lenny is offline
Miembro
 
Registrado: jun 2007
Posts: 161
Reputación: 20
Lenny Va por buen camino
Exclamation MDIChild y MainMenu

Hola estimados, tengo un pequeño problema, les agradesco de antemano cualquier ayuda...
Tengo unas Form's MdiChild cada cual con su MainMenu, todo ok hasta ak, pero cuando habro el Form desde el MainMenu me repite el mismo Form por cada vez que ingreso y no lo coloca en primer lugar como deveria. El codigo que utilizo funiona bien desde un Button, el cual es este:

Código Delphi [-]
procedure TPRODUCTOS.Clientes1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Pred(MDIChildCount) do
    if MDIChildren[i] is TCLIENTES then
    begin
      MDIChildren[i].BringToFront;
      Exit
    end;
  with TCLIENTES.Create(Application) do
  begin
    FormStyle := fsMDIChild;
    OnClose := AlCerrar;
    Show
  end
end;

Cualquier ayuda bienvenida sea, de antemano gracias...

PD: Utilizo Delphi 2010, Zeos, MySql, Windows 7...
Responder Con Cita