Membuat Notepad Sederhana Dengan Delphi 7

Cara membuat notepad sederhana dengan Delphi 7

Hallo sahabat Ilmu kali ini Ilmu akan  memosting cara membuat notepad sederhana dengan Delphi, dari pada bertele-tele langsung saja kita praktekan ….are you ready…….

Kita jalankan Delphi 7 nya

Siapkan komponen

 main menu, memo, save dialog, open dialog,ActionList1,   FontDialog1,  ColorDialog1

Pada komponen main menu double klik sehinggga muncul gambar seperti ini

Pengisian scrip / rumus

*Pada main menu"Baru" isikan rumus sbb: 

memo1.Clear; 

MainMenu1.Items.Items[0].Items[0].Enabled:= False;

*Pada main menu "Buka" isikan rumus sbb:

if OpenDialog1.Execute=true then

begin

memo1.Lines.LoadFromFile(opendialog1.FileName);

end;

*Pada main menu "simpan" isikan rumus sbb:

if savedialog1.Execute then

begin

memo1.Lines.SaveToFile(SaveDialog1.FileName);

end;

*Pada main menu "keluar: isinkan rumus sbb:

if MessageDlg('Anda yakin ingin keluar!!!',mtInformation,[mbYes,mbNo],0)=MrNo then

begin

Close;

end;

*Pada main menu "Stlytle tulisan: isikan rumus sbb:

fontdialog1.Font := memo1.Font;

if fontdialog1.Execute then

begin

memo1.Font := fontdialog1.Font

end;

*Pada memo klik dan lihat pada onjhect inspector cari pada kolom event "onchange" lalu isikan rumus sbb:

if memo1.Lines.Text='' then

begin

MainMenu1.Items.Items[0].Items[0].Enabled:= false;

end

else

begin

MainMenu1.Items.Items[0].Items[0].Enabled:= true;

end;

*Pada main menu "warna background" isikan rumus sbb:

ColorDialog1.Color := memo1.Color;

if ColorDialog1.Execute then 

begin

memo1.Color := ColorDialog1.Color;

end;

*klik pada form lalu lihat pada object inspector pada kolom event cari baris yang berisikan  "oncreate" klik dua kali pada kolom sampingnya yang masih kosong dan isikan rumus sbb:

if memo1.Lines.Text ='' then

begin

MainMenu1.Items.Items[0].Items[0].Enabled:= False;

end;

*Masih seperti yang diatasnya hanya saja beda pengisian rumus. Cari di "onclose" lalu isikan rumus sbb:

MessageBeep(1); 

if MessageDlg('Anda yakin ingin keluar!!!',mtInformation,[mbYes,mbNo],0)=MrNo then

begin

Close;

end;

------------------------------------ 

Demikian postingan yang bisa Ilmu berikan semoga bermanfaat….terus berusaha menjadi yang terbaik.