cara membuat mainmenu, image, openpicturedialog, savepicturedialog and exit at Delphi (code)

Langsung saja kita buat aplikasinya.

Pertama buka form baru.

file- new-aplication

Make a new Form.

langkah 2.

pilih mainmenu dan tarik ke form.

Standard-mainmenu

Mainmenu.

  Langkah 3.

Klik 2x pada Mainmenu dan buat File-Open-Save-Exit.
Untuk membuat nama pergi ke properties-Caption

Langkah 4.




  tarik image dari Additional-image ke form dan buatlah seperti gambar di bawah.

 
Langkah 5. 

Tarik openpicturedialog dan savepicturedialog dari Dialogs ke Form.

Klik File-Open dan tulis kode berikut: 

procedure TForm1.Open1Click(Sender: TObject);
begin
if openpicturedialog1.Execute then;
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end; 

klik File-Save dan tulis kode berikut:


procedure TForm1.Save1Click(Sender: TObject);
begin
if savepicturedialog1.Execute then;
image1.Picture.SaveToFile(savepicturedialog1.FileName);
end;  

Klik File-Exit dan tulis code berikut:

procedure TForm1.Exit2Click(Sender: TObject);
begin
close;
end; 


Pada saat Run aplikasi kita belum bisa membuka format Jpeg / jpg.

 
 Untuk itu kita akan menambahkannya pada kode.
Tambahkan Jpeg pada kode Uses.

 Selanjutnya Run aplikasi dan lihatlah..

 THE END



Terimakasih sudah datang ke Blog saya, Semoga dapat membantu.
See you...