شروع پروژه بازی آنلاین - Delphi XE5 & Intaweb 14.0.32 & TMS Intraweb Component & SQL Server - علاقمندان به ما بپیوندند

[مجید]

در این پست می خواهیم روش های مختلف ایجاد منو برای پروژه را بررسی کنیم .

روش اول : ساخت منو بوسیله کامپوننت TIWMenu : این کامپوننت در IntraWeb Standard وجود دارد و کامپوننت پایه برای ایجاد منو در اینتراوب است .
برای ایجاد منو در پروژه به یک Frame نیاز داریم . از منوی File گزینه New و سپس ...Other را انتخاب کنید و مانند تصویر یک Frame جدید به پروژه اضافه کنید. (دقت کنید منظور Frame است نه Form)

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

نام IWFrame1 را به MenuFrame_Intraweb و نام Unit1.pas را به MenuFrame_Intraweb_Unit.pas تغییر دهید .
یک کامپوننت TMainMenu و یک TIWMenu روی فریم قرار دهید و یونیت های ServerController و UserSessionUnit و LoginUnit و UserProfileUnit و SelectDifficultyLevelUnit و ChangePasswordUnit را به قسمت implementation / uses اضافه کنید .

implementation

  uses
    ServerController,
    UserSessionUnit,
    LoginUnit,
    UserProfileUnit,
    SelectDifficultyLevelUnit,
    ChangePasswordUnit;

مانند تصویر آیتم های منو را برای TMainMenu تعریف کنید.

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

و نام آیتم ها را مانند زیر قرار دهید :

      mnuChangePassword: TMenuItem;
      mnuSelectDifficultyLevel: TMenuItem;
      mnuUserProfile: TMenuItem;
      mnuExit: TMenuItem;
      mnuLogin: TMenuItem;

و کد های زیر را برای Event های OnClick آیتم های منو بنویسید و مقدار OnClick را برای mnuLogin برابر با mnuExitClick قرار دهید :

  procedure TMenuFrame_Intraweb.mnuChangePasswordClick(Sender: TObject);
    begin
      TChangePasswordForm.Create(TIWAPPForm(Parent)).Show;
    end;

  procedure TMenuFrame_Intraweb.mnuExitClick(Sender: TObject);
    begin
      UserSession.CurrentUserID := 0;
      TLoginForm.Create(TIWAPPForm(Parent)).Show;
    end;

  procedure TMenuFrame_Intraweb.mnuSelectDifficultyLevelClick(Sender: TObject);
    begin
      TSelectDifficultyLevelForm.Create(TIWAPPForm(Parent)).Show;
    end;

  procedure TMenuFrame_Intraweb.mnuUserProfileClick(Sender: TObject);
    begin
      TUserProfileForm.Create(TIWAPPForm(Parent)).Show;
    end;

مقدار AttachedMenu از کامپوننت IWMenu1 را به MainMenu1 تغییر دهید تا ارتباط بین دو کامپوننت برقرار شود.
تا اینجا ساخت منو به روش اول تمام شد . برای اینکه بتوانید منو را در تمام فرم ها ببینید مراحل زیر را دنبال کنید:
فرم BaseForm را باز کنید .
مانند تصویر در قسمت Tool Palette عبارت Frame را جستجو کنید و سپس روی Frames کلیک کنید . سپس در محل دلخواه خود روی فرم کلیک کنید تا پنجره ی انتخاب فریم باز شود.

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

MenuFrame_Intraweb را از لیست فریم های موجود انتخاب کرده و OK را کلیک کنید.

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

از این پس منو ایجاد شده در تمام فرم ها نمایش داده خواهد شد . بعضی از فرم ها مانند فرم ورود کاربران نیازی به منو ندارند . از این رو فرم نام برده را باز کنید و خصوصیت Visible فریم منو را False کنید.