برنامه هاي چند فرمي

کد:

---


unit Unit18;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm18 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form18: TForm18;
implementation
uses Unit11;
{$R *.dfm}
procedure TForm18.FormCreate(Sender: TObject);
begin
end;
procedure TForm18.Label1Click(Sender: TObject);
begin
form18.Hide;
form11.show;
end;
end.

---

کد:

---


unit Unit19;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm19 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form19: TForm19;
implementation
uses Unit11;
{$R *.dfm}
procedure TForm19.FormCreate(Sender: TObject);
begin
end;
procedure TForm19.Label1Click(Sender: TObject);
begin
form19.Hide;
form11.show;
end;
end.

---

کد:

---


unit Unit20;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm20 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form20: TForm20;
implementation
uses Unit11;
{$R *.dfm}
procedure TForm20.FormCreate(Sender: TObject);
begin
end;
procedure TForm20.Label1Click(Sender: TObject);
begin
form20.Hide;
form11.show;
end;
end.

---

کد:

---


unit Unit21;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm21 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form21: TForm21;
implementation
uses Unit11;
{$R *.dfm}
procedure TForm21.FormCreate(Sender: TObject);
begin
end;
procedure TForm21.Label1Click(Sender: TObject);
begin
form21.Hide;
form11.show;
end;
end.

---

کد:

---


unit Unit22;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm22 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form22: TForm22;
implementation
uses Unit11;
{$R *.dfm}
procedure TForm22.FormCreate(Sender: TObject);
begin
end;
procedure TForm22.Label1Click(Sender: TObject);
begin
form22.Hide;
form11.show;
end;
enD.

---

کد:

---


unit Unit23;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm23 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form23: TForm23;
implementation
uses Unit11;
{$R *.dfm}
procedure TForm23.FormCreate(Sender: TObject);
begin
end;
procedure TForm23.Label1Click(Sender: TObject);
begin
form23.Hide;
form11.show;
end;
end.

---

فرمهاي 12 13 14 15 16 17 هم ايجاد كردم.

سلام
siminsob عزیز جای شکرش باقیه که فرمهای 12 13 14 15 16 17 رو بی خیال شدی، اگر برنامه رو up میکردی راحت تر میشد کمک کرد.
چون همونطور که مرد مباح گفتن در ظاهر همه چیز خوب به نظر میاد.

بابا چه خبره...

خوب مشکل رو بگو... وقت نمیشه که بشینیم کل فرم ها رو ....

اما باید بگم هنوز پست هات رو نخوندم!

خوب دوست عزیز.
مشکل پیدا شد.

مشکل شما اینه که هر متغیر رو در سطح یک یونیت معرفی کردی و به صورت کامل و در سطح پروژه از اون استفاده نمیکنی.
برای مثال شما در Form11 در بخش Public دوباره خط newgame:(nomaze,box,tunnel,spiral,blockade,twisted ) را نوشتید که به همین دلیل جواب نمیگیرید.
این خط رو پاک کنید و در بخشهایی که برای مثال نوشتی newgame=box کد رو به صورت زیر تغییر بده و این تغییر رو در تمامی تونیتهایی که این کارو کردی منتقل کن :

کد:

---

form6.negame := box;

---

اینجوری یونیت شما در سطح کل پروژه تغییر میکنه و برنامه درست میشه.

ضمنا لطف کنید در صورتی که حجم کدها بالا هست دیگه این کار رو نکنین که توی اینجا همشو پست بدین
این هم سه دلیل داره :
1. حجم زیادس کد میزارین که خیلیا حتی خود من حاضر به خوندن همه اونا نیستند. چون خیلیاش به درد نمیخوره
2. تاپیک رو خیلی شلوغ میکنه
3. ممکن هست که در جایی نیاز به تغییراتی بر روی فرم هم باشد که اون اطلاعات در برنامه به این صورت نیامده.

بنابراین حتما دفعه بعدی لینک برنامه خودتون رو UpLoad کنید.