Judul : Tutorial Multi Document Interface (Delphi XE 5)
link : Tutorial Multi Document Interface (Delphi XE 5)
Tutorial Multi Document Interface (Delphi XE 5)
TUTORIALMulti
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.
Demikianlah Artikel Tutorial Multi Document Interface (Delphi XE 5)
Sekianlah artikel Tutorial Multi Document Interface (Delphi XE 5) kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.
Anda sekarang membaca artikel Tutorial Multi Document Interface (Delphi XE 5) dengan alamat link https://sebuahteknologi.blogspot.com/2015/02/tutorial-multi-document-interface.html