Tutorial Multi Document Interface (Delphi XE 5)

 TUTORIAL

Multi Document Interface

Hasil Pengamatan Perintah dan Jalannya Program

1.         Buat program MDI Delphi dengan cara pilih menu File > New > Other

2.         Pilih MDI Application dan tekan OK

3.         Maka muncul tampilan program MDI berikut :

4.         Kemudian pilih View Form atau tekan Shift+F12 dan Pilih AboutBox. Lalu desain seperti pada gambar :

5.         Kemudian Shift+F12 pilih MainForm

6.         Lalu jalankan kemudian coba menu File > Open dan pilih file .TXT atau .PAS

7.    Buka File baru dengan cara : File-New (ketik apa saja)

8.    Kembali ke Main Form, dikarenakan save belum aktif maka tambahkan SaveDialog1

9.         Buat Form baru (File-New- VLC Form – Delphi)

Tambahkan komponen RichEdit pada Tab Additional lalu edit Properties menjadi seperti berikut :

-        Align           : alClient

-        Lines           : kosongkan

10.      Kembali ke Main Form. Pilih/klik Actionlist seperti pada gambar dibawah berikut :

Pilih New Standard Action, setelah itu cari format dan pilih semua yang ada di list format

11.      Kembali lagi ke Main Form, lalu cari MainMenu1 dengan cara double klik. Desain seperti yang ada dibawah berikut :

Klik dibawah format dan enter, akan muncul kotak  kosong.setelah itu liat di properties pilih action dan masukan data sesuai pada gambar diatas. Kemudian setelah memilih data yang ada di action, lalu tekan enter dan akan muncul kotak selanjutnya. Begitupun seterusnya.

12.      Kembali ke Form tekan F12 lalu cari :

procedure TmainForm.CreateMDIChild(const Name; string);

13.      Tuliskan program yang dilingkari merah.

procedure TMainForm.CreateMDIChild(const Name: string);

var

  Child: TMDIChild;

begin

  { create a new MDI child window }

  Child := TMDIChild.Create(Application);

  Child.Caption := Name;

  FileSaveItem.Enabled := True;

  FileSaveAs1.Enabled := True;

  ToolButton2.Enabled := True;

  if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);

end;

14.         Pilih Komponen ActionList > FileSave Event Execute lalu ketikka perintah berikut ini :

procedure TMainForm.FileSave1Execute(Sender: TObject);

 var

 child : TMDIChild;

begin

  if SaveDialog1.Execute then

    FChild.RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

end;

15.         Tekan F12, kemudian pilih SaveDialog1. Lihat ke properties lalu pilih filter dan ketikan seperti pada gambar berikut ini :

16.         Kemudian Run kembali, lalu amati. Jika penyimpanan akan aktif bila di pilih File-New dan ketkan data kemudian simpan.

17.         Save all, Selesai.

Download lebih kumplit dengan gambar

• Tweet
• Share
• Share
• Share
• Share

About Admin MC3

This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.

Related Post

• Koneksi MySQL ODBC dengan Delphi XE Bagian 1Untuk mempermudah menghandle database kita akan menginstall XAMPP terlebih dahulu. Disini tidak ak
• Belajar Delphi With Database(CRUD pada Delphi) Part 1 Assalamualaikum. Selamat Pagi gan.ketemu lagi dengan saya seorang mahasiswa semester 5 di salah
• Belajar Delphi With Database(CRUD pada Delphi) Part 2 Assalamualaikum Selamat Siang gan. kembali lagi dengan saya Fadhil Seorang Mahasiswa Semester 5
• Membuat Log In Multi User menggunakan Delphi XE5 Membuat Log In Multi User di Delphi Mungkin judul yang saya bahas ini sudah beredar luas di du