Uses w formie głownej

0

Mam pewnien problem i postaram sie go opisac najlepiej jak bede mogl.

Mam duzo form z moim programie. na pierowszej formie jest menu glowne i jest odwaloanie do okolo 50 innych form poprzez: USES nazwa_formy. Korzystam komponentow do raportow pReport. Problem nastepuje jezeli na liscie USES wystepuje za duzo dodanych form to raporty przestaja dzialac.

Chcialbym zrobic jakis plik w ktorym trzymene bylyby wszystkie linki do tych form a w glownej formie dalbym tylko USES form_z_linkami.

Tyle ze nie wiem czy tak mozna, a jezeli mozna to w jaki sposob to zrobic [???] [???] .

0

O ile wiem to nie można

0

dodatkowy unit a w nim

function ShowForm1(AOwner: TComponent; InneDane: TTyp): TModalResult; {jeśli modalna albo cokolwiek innego jeśli ma zwrócić coś innego}
var
  f: TForm1;
begin
  f := TForm1.Create(AOwner);
  try
    Result := f.ShowModal;
  finally
    FreeAndNil(f);
  end;
end;

Function ShowForm2 ...

Function ShowForm3 ...

//itd

Do uses FormMain dodajesz tylko jeden unit

a no i w MainForm

procedure Form1MenuClick();
begin
  ShowForm1();
end;

procedure FormXMenuClick();
begin
  ShowFormX();
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1