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?
