Cara Membuat Main Menu

Buat form baru
Pada palete standar pilih MainMenu(Menus) dan PopUpMenu dan letakan pada form
Double klik MainMenu sehingga akan muncul form baru isi Caption sesuai dengan rancangan anda enter untuk membuat sub klik/geser kanan untuk main
Tampilannya seperti ini

Dengan PopUpMenu juga sama caranya.
Setelah selesai double klik misal pada Input Data - Data Bengkel (double klik pada Data Bengkel) dan tuliskan seperti ini

procedure TMenuutama.DataBengkl1Click(Sender: TObject);
begin
Application.CreateForm(Tbengkel, bengkel);
 bengkel.show;
  TMenuutama1.Visible:=false;
end;

Nb : setelah implementation pada uses harus di isi dengan nama formnya contoh scriptnya

unit Menuutama;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DBXpress, DB, ADODB, SqlExpr, ExtCtrls, StdCtrls;

type
  TMenuutama = class(TForm)
    MainMenu: TMainMenu;
    PopupMenu1: TPopupMenu;
    Master1: TMenuItem;
    DataWorkOrde1: TMenuItem;
    DataBengkl1: TMenuItem;
    DataSupplier1: TMenuItem;
    DataSurveyor1: TMenuItem;
    DataMerekdanTypeKendaraan1: TMenuItem;
    DataSparePart1: TMenuItem;
    InputDataLaporan1: TMenuItem;
    LaporanQuotation1: TMenuItem;
    Laporan1: TMenuItem;
    Quotation1: TMenuItem;
    Keluar1: TMenuItem;
    Master3: TMenuItem;
    InputDataLaporan2: TMenuItem;
    Laporan2: TMenuItem;
    Keluar2: TMenuItem;
    DataWorkOrde2: TMenuItem;
    DataBengkel1: TMenuItem;
    DataSupplier2: TMenuItem;
    DataSurveyor2: TMenuItem;
    DataMerek1: TMenuItem;
    DataPart1: TMenuItem;
    LaporanQuotation2: TMenuItem;
    Quotation2: TMenuItem;
    Label1: TLabel;
    Merek1: TMenuItem;
    Label2: TLabel;
    procedure DataWorkOrde1Click(Sender: TObject);
    procedure DataBengkl1Click(Sender: TObject);
    procedure DataSupplier1Click(Sender: TObject);
    procedure DataSurveyor1Click(Sender: TObject);
    procedure DataMerekdanTypeKendaraan1Click(Sender: TObject);
    procedure DataSparePart1Click(Sender: TObject);
    procedure LaporanQuotation1Click(Sender: TObject);
    procedure Quotation1Click(Sender: TObject);
    procedure Supplier1Click(Sender: TObject);
    procedure Bengkel1Click(Sender: TObject);
    procedure Surveyor1Click(Sender: TObject);
    procedure Part1Click(Sender: TObject);
    procedure Keluar1Click(Sender: TObject);
    procedure Merek1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Master1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

 Var TMenuutama1: TMenuutama;

implementation

uses Inputwo, Inputsupplier, Inputlaporanqu, Inputpart, Inputmerek, Inputsurveyor, Inputbengkel,
laporanqu, laporansupplier, laporanbengkel, laporanpart,laporanmerek, laporansurveyor, Login, Unit2;

{$R *.dfm}