Arsip: Cara Form di klik X tidak tertutup/keluar

more 17 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 17 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 17 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
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Masukkin data time dgn mask edit???
by camp_sire in Tip n Trik Pemrograman more 17 years ago - DBGrid Help ??
by amakita in Hal umum tentang Pascal Indonesia more 16 years ago - Menampilkan progress-bar saat fetch data besar
by DelphiExpert in Lain-lain more 17 years ago - Tampilan dbedit / dbimage supaya kosong ?
by debby in Hal umum tentang Pascal Indonesia more 17 years ago - mau nyalain lampu pake komputer
by ilham in Hal umum tentang Pascal Indonesia more 18 years ago - Help.....SQLDataSet..!!!
by coacoac in Tip n Trik Pemrograman more 17 years ago - sendkey
by ahariono in Tip n Trik Pemrograman more 16 years ago - Cara menyimpan hasil aplikasi dari stringgrid ke explorer
by rahul_cayang in Hal umum tentang Pascal Indonesia more 17 years ago - memanggil variable antar form
by khumaedy in Tip n Trik Pemrograman more 16 years ago - Gairah baru
by Tbawor in Hal umum tentang Pascal Indonesia more 17 years ago