kededa gawian...note yg ad aj di Upload..hee

Suatu ketika, ada seorang bayi yang siap unuk dilahirkan
Maka, ia bertanya kepada Tuhan."Ya Tuhan, Engkau akan mengirimku ke bumi.
Tapi, aku takut, aku masih sangat kecil dan tak berdaya. Siapakah nanti yang akan
melindungiku disana?".

Tuhanpun menjawab. "Diantara semua malaikat-Ku, aku akan memilih seorang yang khusus untukmu.
Dia akan merawatmu dan mengasihimu."
Si kecil bertanya lagi, "Tapi, disini, si surga ini, aku tak berbuat apa-apa, kecuali tersenyum dan bernyanyi.
Semua itu cukup membuatku bahagia. Tuhanpun menjawab, "Tak apa, malaikatmu itu, akan selalu menyenandungkan lagu untukmu, dan dia akan membuatmu tersenyum setiap hari.
Kamu akan merasakan cinta dan kasih sayang, dan itu semua pasti akan membuatmu bahagia."
Namun si kecil bertanya lagi, "Bagaimana aku bisa mengerti ucapan mereka, jika aku tak tahu bahasa apa yang mereka pakai?????

Tuhanpun menjawab, "Malaikatmu itu, akan membisikkanmu kata-kata yang paling indah, dia akan selalu sabar ada disampingmu, dan dg kasihnya,dia akan mengajarkanmu berbicara dengan bahasa manusia.
"Si kecil bertanya lagi, "Lalu, bagaimana jika aku ingin berbicara padamu, ya Tuhan????"

Tuhanpun kembali menjawab, "Malaikatmu itu, akan membimbingmu. Dia akan menengadahkan tangannya bersamamu, dan mengajarkanmu untuk berdoa."
Lagi-lagi, si kecil menyelidik, "Namun, aku mendengar, disana, ada banyak orang jahat, siapakah nanti yang akan melindungiku??????


Tuhanpun menjawab, "Tenang, malaikatmu, akan terus melindungimu, walaupun nyawa yang menjadi taruhannya. Dia, sering akan melupakan kepentingannya sendiri untuk keselamatanmu."
Namun, si kecil kini malah sedih, "Ya tuhan, tentu aku akan sangat sedih jika tak melihat-Mu lagi.


Tuhan menjawab lagi, "Malaikatmu, akan selalu mengajarkan kamu akan keagungan-Ku, dan dia taat pada-Ku. Dia akan selalu membimbingmu untuk selalu mengingat-Ku.
Walau begitu, aku akan selalu ada disisimu."

....................................................


Hening. Kedamaianpun tetap menerpa surga. Namu, suara-suara panggilan dari bumi terdengar sayup-sayup.
"Ya tuhan, aku akan pergi sekarang, tolong, sebutkan nama malaikat yang akan melindungiku....."

Tuhanpun kembali menjawab. "Nama malaikatmu tak begitu penting, Kamu akan memanggilnya dengan sebutan : ibu......."

Mohon BimbinganY

BLum terlalau ngeh ama blog+blum ngerti juga.......^^V

Mendisable Menu dan Tombol Close (delphi)

Sebuah form biasanya mempunyai tiga tombol yang terletak pada bagian title bar, yaitu tombol maximize, minimize, close.

Untuk Dengan tips di bawah ini Anda dapat mendisable tombol/menu close.

procedure TForm1.FormCreate(Sender: TObject);

var

   hMenuHandle : HMENU;

begin

   hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);

   if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle,

      SC_CLOSE, MF_BYCOMMAND);

end;

Langkah pertama adalah mencari handle dari window menu (atau System menu atau Control menu), caranya yaitu dengan menggunakan fungsi GetSystemMenu.

function GetSystemMenu (hWnd : HWND, bRevert : Boolean) : HMENU;

Parameter pertama dari fungsi GetSystemMenu adalah handle dari window atau form. Dalam contoh ini nama formnya adalah Form1.
Parameter kedua adalah bRevert. Jika nilai bRevert bernilai True maka nilai balik dari fungsi GetSystemMenu adalah NULL, sebaliknya jika bRevert bernilai False maka nilai baliknya adalah handle dari copy dari window menu.

Langkah selanjutnya adalah “menghapus” item pada window menu dengan menggunakan fungsi DeleteMenu.

function DeleteMenu (hMenu : HMENU, uPosition : integer, uFlags : integer): Boolean

Parameter pertama adalah handle dari window menu (yang merupakan hasil pencarian dengan fungsi GetSystemMenu).
Parameter kedua merupakan posisi atau pengenal menu. Jika Anda mengisi parameter ketiga dengan MF_BYCOMMAND maka parameter kedua dapat bernilai SC_CLOSE, SC_MOVE, dan SC_SIZE. Sebaliknya jika Anda mengisi parameter ketiga dengan MF_BYPOSITION maka Anda dapat mengisi parameter kedua dengan suatu nilai integer yang merepresentasikan menu Close.

Fungsi DeleteMenu akan mengembalikan nilai True jika penghapusan menu berhasil dan mengembalikan nilai False jika gagal.
Kedua perintah di bawah ini akan mendapatkan hasil yang sama:

DeleteMenu(hMenuHandle, 6, MF_BYPOSITION);

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND)