Ver Mensaje Individual
  #1  
Antiguo 05-12-2005
alextmb alextmb is offline
Miembro
 
Registrado: nov 2005
Posts: 14
Reputación: 0
alextmb Va por buen camino
Como usar mejor uses

tengo un project con 11 forms, de los cuales necesito abrir en un main menu del form principal o del form1 para lo cual lo he declarado asi

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Unit2, Unit3,
  Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Forms, Dialogs, Menus;

procedure TFPrincipal.pptClick(Sender: TObject);
begin
  Fppt.Show;
end;

procedure TFPrincipal.SeryEscClick(Sender: TObject);
begin
  Form1.Show;
end;

procedure TFPrincipal.ruletaClick(Sender: TObject);
begin
  Fruleta.Show;
end;

procedure TFPrincipal.dadosClick(Sender: TObject);
begin
  Fdados.Show;
end;

procedure TFPrincipal.ruleta36Click(Sender: TObject);
begin
  Fruleta36.Show;
end;

procedure TFPrincipal.FormulaClick(Sender: TObject);
begin
  Fformula.Show;
end;

procedure TFPrincipal.NombresClick(Sender: TObject);
begin
  Fnombres.Show;
end;

procedure TFPrincipal.tablas10Click(Sender: TObject);
begin
  Ftabladiez.Show;
end;

procedure TFPrincipal.tablas100Click(Sender: TObject);
begin
  Ftablas100.Show;
end;

procedure TFPrincipal.IncreyDecreClick(Sender: TObject);
begin
FIncreyDecre.Show;
end;

{...}
como le puedo hacer para que en use no tenga que escribir cada uno de los unit??

Última edición por dec fecha: 05-12-2005 a las 09:01:48. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita