Arsip: Cara Form di klik X tidak tertutup/keluar
more 16 years ago
onsir
Bagaimana cara nya bila suatu form di klik tanda X (close) tampil pesan.
lalu bila di klik OK form tsb tertutup, bila di klik Cancel tidak tertutup
saya ada kode spt ini
procedure TfMainMenu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If Application.MessageBox('Anda yakin ingin keluar dari program ?', 'lat1', MB_OKCANCEL ) = IDOK then
begin
Application.Terminate;
end;
end;
Atas bantuan rekan-rekan saya ucapkan terima kasih
more 16 years ago
reminder2k1
Sebenarnya script di atas dah bener... Cuma perlu ditambahkan 1 baris aja lagi...
Met coba ya???
:D
procedure TfMainMenu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If Application.MessageBox('Anda yakin ingin keluar dari program ?', 'lat1', MB_OKCANCEL ) = IDOK then begin
Application.Terminate;
end else
begin
Application.Run
end;
end;
more 16 years ago
luckynvic
Dalam Form sudah ada event onCloseQuery dan kita dapat mamanfaatkannya contoh :
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Yakin Keluar',mtConfirmation,[mbOk]+[mbCancel],0)=mrOk then
CanClose:=true
else
CanClose:=false;
end;
atau lebih singkatnya begini saja, dari pada repot :roll:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= MessageDlg('Yakin Keluar',mtConfirmation,[mbOk]+[mbCancel],0)=mrOk;
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- masalah sql di mysql
by putukaca in Enginering more 18 years ago - Array dan Matrix, Error....
by iyus.jr in Enginering more 12 years ago - File Manager
by de27de in Hal umum tentang Pascal Indonesia more 14 years ago - ubah 'not null' di mysqlfront gak bisa
by viq_01 in MySQL more 16 years ago - tips : Bikin AutoNumber buat nomor faktur
by tox2wow in Enginering more 18 years ago - Proses Database MDB......
by fissas in FireBird more 16 years ago - [Tanya] Selisih Tanggal dalam detik
by s0t4 in Tip n Trik Pemrograman more 13 years ago - Dilema memperkerjakan programmer
by LuriDarmawan in OOT more 15 years ago - gimana cetak pake qreport dgn settingan yg diatur??
by imunk in Enginering more 19 years ago - Uji wawasan USB...
by EkoIndri in Tip n Trik Pemrograman more 17 years ago