Pembuatan Fasilitas Dialog Standar Pada Delphi

Di dalam Delphi, ada menyediakan sejumlah dialog standar dalam bentuk komponen untuk berbagai keperluan, mulai dari dialog untuk membuka file sampai dialog untuk pencetakan. Dialog standar pada Delphi dapat dilihat dengan Component Palette Dialogs yang tersedia pada program Delphi. Walaupun sederhana, program ini dapat dimanfaatkan sesuai dengan kegunaannya. Untuk memudahkan dalam pembuatannya, berikut kode untuk membangun fasilitas ini :
- Membuat OpenDialog:
   procedure TForm1.btnOpenClick(Sender: TObject);
   begin
   if opendialog1.Execute then begin
   memo1.lines.LoadFromFile(opendialog1.filename);
   end;

- Membuat SaveDialog
   procedure TForm1.btnSaveClick(Sender: TObject);
   begin
   if savedialog1.Execute then begin
   memo1.Lines.SaveToFile(savedialog1.FileName);
   end;

- Membuat FontDialog
   procedure TForm1.btnFontClick(Sender: TObject);  
   begin
   if fontdialog1.Execute then
   memo1.font := fontdialog1.Font;
   end;

- Membuat ColorDialog
   procedure TForm1.btnColourClick(Sender: TObject);
   begin
   memo1.Color := colordialog1.color.;
   end;

Apabila ingin kode sumber dan aplikasi jadinya, silahkan download di sini untuk source kodenya dan download disini untuk aplikasi jadinya. 

Nb : Untuk menampilkan file pada program, terlebih dahulu membuat sebuah file yang berekstensi .txt