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.
