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