Sunday, 8 April 2012

Delphi7 : Tombol Keluar dengan Messagebox

Ketikkan listing program di bawah ini dengan cara klik dua kali form aplikasi kamu:



procedure TForm1.keluarClick(Sender: TObject);
begin
  if (application.messagebox(‘Apakah Anda ingin Keluar Aplikasi’,'Peringatan’,mb_yesno)=idyes)
  then
   close;
end;

Minggu, 8 April 2012

Kejenuhan melanda, di saat pikiran hanya berkutat suatu hal yang hanya itu-itu saja, tapi belum menemukan solusi dari hal tersebut. Terkurung dengan beban yang aku sendiri belum mengetahui bagaimana cara memecahkannya. Aku butuh bantuan. Itu saja yang ku harapkan. Namun, harapan itu sia-sia, bahkan ku mengusahakan sesuatu yang nantinya menjadi pencerahan bagi masalahku ini. Terkadang ada saat-saat dimana aku tergoda oleh sesuatu yang membuatku menghindar dari hal yang kuhadapi saat ini. 
Kejenuhan melanda, ketika ku berada di kehidupan real yang menuntutku tuk hidup jauh dari keluarga, sehingga ku menemukan teman-teman baru tuk jalankan semua aktivitas baruku. Berhias tembok, genteng, kaca, kayu, tersusun kotak membentengi dari dinginnya angin dan derasnya debu serta kobaran hujan, aku berdiam disana. Ketika ku ingin melepaskan kejenuhan dengan melepas rindu bersama keluarga, pikiran hal itu muncul, seraya emosi yang menimpaku tak terelakkan tuk kubendung. Ingin ku teriak tatkala ku main flying fox. 

KEEP FIGHT!!
*denganterusmenggenggamtangandanmengangkattangandengansudutsikusiku*


 

: : diliecute : : Template by Ipietoon Cute Blog Design

Blogger Templates