Membuat Message Dialog dengan Firemonkey

Assalamu’alaikum wr, wb.

Pada kesempatan kali ini saya akan membahas tentang “Bagaimana cara membuat message dialog dengan firemonkey”.

Jika anda sudah terbiasa menggunakan VCL dan baru migrasi ke Firemonkey, pastinya kita anda akan merasa bingung untuk membuat message dialog. Karena, kodenya berbeda dengan VCL.

Oke, langsung saja kita ke pembahasan.

1. Buat project baru dengan Form Firemonkey
2. Masukkan 5 button dan beri nama seperti gambar berikut
   
3. Masukkan kode berikut :

Warning

procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtWarning, mbYesNo, 0) = mrNo then
Abort;
end;

Error

procedure TForm1.Button2Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtError, mbYesNo, 0) = mrNo then
Abort;
end;

Information

procedure TForm1.Button3Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtInformation, mbYesNo, 0) = mrNo then
Abort;
end;

Confirmation

procedure TForm1.Button4Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtConfirmation, mbYesNo, 0) = mrNo then
Abort;
end;

Custom

procedure TForm1.Button5Click(Sender: TObject);
begin
if MessageDlg('Tutorialkodedelphi.blogspot.com', System.UITypes.TMsgDlgType.mtCustom, mbYesNo, 0) = mrNo then
Abort;
end;

Sekian dari saya, semoga bermanfaat.
Untuk Source Codenya silakan download disini.

Wassalamu’alaikum wr, wb.

Read More

Membuat Database MS. Access dengan Delphi

Pada kesempatan kali ini, saya akan membagikan catatan kecil tentang “Cara Membuat Database Ms. Acces dengan Delphi”. Saya menggunakan Microsoft Access 2013 dan Delphi XE4. Tapi, tips ini bisa diterapkan di Microsoft 2010 dan 2007. Untuk Microsoft Access 2003 agak beda. Untuk Delphi versi sebelumnya pun bisa diterapkan.

 

Pada pembahasan kali ini, kita tidak perlu membuka delphi terlebih dahulu karena kita akan mulai dengan membuat database nya dulu dengan Ms. Access.

 

Langkah pertama adalah jalankan program Microsoft Access-nya dan pilih “Blank desktop database”

 

 

 

Tentukan nama dan path penyimpanan databasenya.

jangan lupa, ubah formatnya menjadi “Microsoft Acces Databases (2002-2003 format)”.

Lebih jelasnya, lihat gambar di bawah.

 

 

 

Lalu klik “Create”.

 

Klik kanan pada Table1, pilih “Design View”

 

 

Karena Tabelnya belum disave, maka akan tampil konfirmasi penyimpanan.
Masukkan nama tabel nya sesuai keinginan.

 

 

Lalu tekan OK.

Selanjutnya buat 3 field name (Nama, Username, Password) dengan Data Type semua “Short Text” karena kita hanya membutuhkan text.

Tentukan “Primary Key” pada field “Username” dengan cara klik kanan pada field Username > Primary Key.

 

Read More

Cara Open File dengan Delphi VCL

Assalamu'alaikum wr, wb. 

 

Pada postingan kali ini saya akan memberikan sebuah catatan tentang cara menjalankan file atau program dengan Delphi VCL.



Sangat mudah sekali,, dan juga mudah dihafal.

Oke langsung saja kita ke pembahasan.

 

Seperti biasa, buka dulu Delphi, dan buat project baru (File > New > VCL Form Application - Delphi)

 

Selanjutnya tambahkan 5 button. Ubah Captionnya masing-masing menjadi

   - "Jalankan Program"

   - "Buka Folder"

   - "Buka File *.txt dengan Notepad"

   - "Buka Halaman Web" dan

   - "Buka FIle dengan Program Default".

 

 

Masukkan Uses ShellApi.

 

 

Masukkan kode berikut, pada event button click.

 

- Button "Jalankan Program"

 

   procedure TForm2.Button1Click(Sender: TObject);
   begin
     ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;
      end;

 

- Button "Buka File *.txt dengan Notepad"

 

   procedure TForm2.Button2Click(Sender: TObject);
   begin
     ShellExecute(Handle,'open', 'c:\windows\notepad.exe', '.\Execute.txt', nil, SW_SHOWNORMAL) ;
   end;

 

- Button "Buka Halaman Web"

 

   procedure TForm2.Button3Click(Sender: TObject);
   begin
     ShellExecute(Handle, 'open', 'http://tutorialkodedelphi.blogspot.com',nil,nil,  SW_SHOWNORMAL) ;
   end;

 

- Button "Buka Folder"

 

   procedure TForm2.Button4Click(Sender: TObject);
   begin
     ShellExecute(Handle, 'open', '..\debug', nil, nil, SW_SHOWNORMAL) ;
   end;

 

- Button "Buka FIle dengan Program Default"

 

   procedure TForm2.Button5Click(Sender: TObject);
   begin
     ShellExecute(Handle, 'open', '.\Execute.docx',nil,nil,SW_SHOWNORMAL) ;
   end;

 

Sekian dari saya.

Saya tunggu komentarnya.

Untuk contoh program silakan klik di sini.

 

Wassalamu'alaikum wr, wb.

Read More