Mau dong.. :D
Oke, karena tadi saya lihat pas ekskul banyak yang macet, jadi saya post nih. Langsung saja...
- Buat dulu "Button" (Tombol, red), sesuaikan properties-nya (Name, Caption, Ukuran, dll) dengan selera masing-masing.
- Double-click pada Button yang tadi dibuat hingga masuk ke "Code Editor" (Tempat dimana anda akan menulis Syntax).
- Ketikkan "Application.MessageBox" pada Code Editor, tepatnya diantara tulisan "Begin" dan "End", pasti akan muncul buka dan tutup kurung secara otomatis.
- Klik pointer diantara buka dan tutup kurung tadi.
- Ketikkan isi MessageBox disana dengan menggunakan tanda petik (') sebelum dan sesudahnya.
- Ketik koma setelah selesai mengetik isi MessageBox.
- Ketikkan judul MessageBox dengan menggunakan tanda petik (') sebelum dan sesudahnya.
- Ketik koma setelah selesai mengetik judul MessageBox.
- Ketik "MB_" lalu tekan "Ctrl+Space" untuk membuat tombol pada MessageBox.
- Ketik "or" setelahnya.
- Ketik "MB_ICON" lalu tekan "Ctrl+Space" untuk membuat icon pada MessageBox.
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.MessageBox('Mau tau cara buat MessageBox di Delphi7?',
'Untuk anak CPLC', MB_YESNO or MB_ICONQUESTION);
end;
Ada pertanyaan??