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.
a Technopreneur – writer – Enthusiastic about learning AI, IoT, Robotics, Raspberry Pi, Arduino, ESP8266, Delphi, Python, Javascript, PHP, etc. Founder of startup Indomaker.com
Sharing yang menarik, saya mau tanya, apakah exefile hasil compile harus selalu running? ketika akan menjalankan di web browser???
Versi Raudus terbaru sepertinya tidak menyertakan komponen RaExt* secara default.
Dan di paket RaudusX tidak ada RaExtMessageBox.
buat project pake module di raudus gimana ya mas…biar 1 module bisa dipakai di semua form…?
dan juga membuat message box menggunakan raudus 0.9.8
saya uda coba pake delphi 7 tp tidak bisa, mohon pencerahannya
tolong diadd ke emailku ya mas di [email protected].
thx, eddy
sepertinya ngga bisa mas. Komponen module itu sebenarnya kan buat app desktop, jd ngga support buat app server spt raudus