Arsip: Cara Form di klik X tidak tertutup/keluar

more 14 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 14 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 14 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 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- Ambil TANGGAL dan HARI pada MonthCalendar
by flamade in Hal umum tentang Pascal Indonesia more 14 years ago - test ping ip
by bodoh in Network, Files, I/O & System more 13 years ago - tanya tentang tabel Sql - Access
by adhi_07 in Hal umum tentang Pascal Indonesia more 12 years ago - ambil tanggal & jam milik komputer server
by imunk in Enginering more 17 years ago - client-server
by fabio in MySQL more 15 years ago - kok stack overflow?????
by akudana in Hal umum tentang Pascal Indonesia more 12 years ago - Printer mini epson TM U220B
by wati in Tip n Trik Pemrograman more 11 years ago - REPORT JUSTIFY
by darsaneit in Hal umum tentang Pascal Indonesia more 10 years ago - delphi mengguna database pervasive v9
by goodday in Enginering more 16 years ago - database designer utk firebird
by delphi_warrior in FireBird more 13 years ago