Belajar Pemrogramab Borland Delphi 7.0 (Pembuatan Komponen Main Menu)

PEMBUATAN MENU FILE

 

SINTAK BARU

ProcedureTNaskah.baruClick(sender:Tobject);

Begin

 

   NamaFile(sUntitled);

   Naskah.Lines.Clear;

   Naskah.Modified:=False;

   Modifikasi(False);

End;

SINTAK BUKA 

ProcedureTNaskah.BukaClick(sender:Tobject);

Begin

   If SaveDialog1.Executethen

   Begin

       BukaFile(OpenDialog1.FileName);

       Naskah.readOnly:=ofReadOnly in OpenDialog1.Options;

  End;

End;

 

SINTAK SIMPAN

ProcedureTNaskah.SimpanClick(sender:Tobject);

Begin

   if SavedDialog1.Execute then

begin

    Naskah.Lines.SaveToFile(SaveDialog1.FileName);

    NamFile(SaveDialog1.FileName);

    Naskah.Modified:=False;

    Modifikasi(False);

  End;

End;

SINTAK CETAK(PRINT)

ProcedureTNaskah.CetakClick(sender:Tobject);

Begin

   If PrintDialog1.Execute then

   Naskah.Print(‘FfileName’);

End;

SINTAK KELUAR(CLOSE)

ProcedureTNaskah.BukaClick(sender:Tobject);

Begin

   Close;

End;