MainMenu z wieloma komponentami nie działa.

[ade1301]

Mam programik, który korzysta z kilku unitów: Program główny wygląda następująco:

 

program Project8;

 

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6},

Unit8 in 'Unit8.pas' {Form8};

 

{$R *.res}

 

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.CreateForm(TForm8, Form8);

Application.Run;

end.

 

 

Jeden z unitów:

 

TForm6 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Button1: TButton;

SpeedButton1: TSpeedButton;

//Edit1: TEdit;

//Edit2: TEdit;

//Edit3: TEdit;

//Label1: TLabel;

//Label2: TLabel;

//Label3: TLabel;

//Button1: TButton;

//SpeedButton1: TSpeedButton;

procedure Button1Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit3, Unit1, Unit8;

{$R *.DFM}

procedure TForm6.Button1Click(Sender: TObject);

begin

Form6.Visible:=false;

form3.StatusBar1.Panels[1].text:='Rx: '+Form6.Edit1.Text;

form3.StatusBar1.Panels[2].text:='Tx: '+Form6.Edit2.Text;

form3.StatusBar1.Panels[3].text:='Selcall number: '+Form6.Edit3.Text;

form1.Rx:=StrToFloat(Form6.Edit1.Text);

form1.Tx:=StrToFloat(Form6.Edit2.Text);

form1.selcall:=StrToInt(Form6.Edit3.Text);

Form6.Hide;

end;

procedure TForm6.SpeedButton1Click(Sender: TObject);

begin

Form6.Hide;

Form8.Show;

end;

end.

 

 

Gdy uruchamiam program, komponenty MainMenu w unit1 nie zależnie czy odwołują się do tegu unitu czy do pozostałych nie otwierają się!!!!

dlaczego, jaki popełniam błąd? Pomocy?

[g-Enjoy]

Eh? Więcej kodu proszę.