Official StoreTekan tombol di atas untuk membeli semua alat dan bahan eksperimen di web ini

Menangani Nilai Kembalian/Return Value/Modal Result dari Sebuah MessageBox di Raudus

Jika anda membuat project web menggunakan Delphi, bisa dibilang Raudus adalah salah satu alternative yang cukup bagus. Dengan Raudus semua sintaks pembuatan web murni menggunakan Delphi style, tidak menggunakan script php, asp, jsp, dll. Dengan demikian jika Anda sudah familiar dengan sintaks dan semantik Delphi tentu tidak akan kesulitan menggunakan Raudus ini.

 Beberapa waktu yang lalu, salah satu pembaca buku saya bertanya tentang bagaimana cara mengetahui tombol apa yang ditekan saat user berada di jendela pop up info dalam hal ini adalah jendela MessageBox. Solusi dari masalah ini sebenarnya sangat simple, sama halnya dengan pemrograman Delphi untuk desktop biasa, yakni dengan mendeteksi nilai ‘modal result’ sebagai return value. Caranya adalah double click komponen RaExtMessageBox1, dan isikan event handler disana. Contohnya adalah sebagai berikut :

procedure TRaForm1.RaExtMessageBox1Dismiss(Sender: TObject;

  ModalResult: TModalResult);

begin

 if ModalResult= mrYes then RaExtLabel2.Text:=’Tombol “Yes” ditekan’;

 if ModalResult= mrNo then RaExtLabel2.Text:=’Tombol “No” ditekan’;

 if ModalResult= mrCancel then RaExtLabel2.Text:=’Tombol “Cancel” ditekan’

end;

Dengan menulis event handler di atas maka jika tombol ‘Yes’ di jendela RaExtMessageBox1 ditekan, maka tulisan di RaExtLabel2 akan berubah menjadi ‘Tombol “Yes” ditekan. Hal ini juga berlaku jika tombol “No’ dan “Cancel” ditekan, tentunya dengan tulisan yang berbeda di RaExtLabel2.

Berikut adalah step by step pembuatan project handling modal result RaExtMessageBox1 seperti yang dijelaskan di atas.

1. Buat project Raudus baru melalui menu File | New | Other | Raudus | RaApplication

2. Ambil komponen RaExWindow (1 bh), RaExtLabel (2 bh), RaExtButton (1 bh) dan RaExtShowMessageBox (1 bh) dari tab ‘Raudus Ext’ di Component Pallete

3. Atur peletakan komponen seperti gambar di bawah

4. Double click tombol RaExtButton1 dan isikan event handler sbb :

procedure TRaForm1.RaExtButton1Click(Sender: TObject);

begin

 RaExtMessageBox1.Text:=’Silahkan tekan salah satu tombol di bawah’;

 RaExtMessageBox1.Show;

end;

5. Isikan event handle RaExtMessageBox1 seperti yang telah dijelaskan sebelumnya

6. Running project (F9)

7. Buka web browser, ketik localhost:88. Tekan tombol RaExtButton1, maka akan mucul tampilan sebagai berikut

Demikian tutorial bagaimana menangani modal result yang dihasilkan dari penekanan salah satu tombol dari jendela RaExtMessaheBox. Semoga bermanfaat untuk Anda.

Incoming search terms:

tutorial raudus delphi
Tags:
4 Comments

Add a Comment

Your email address will not be published. Required fields are marked *

error: Content is protected !!