Arsip: Cara Form di klik X tidak tertutup/keluar

more 13 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 13 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 13 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
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Multi user di paradox
by hello_kitty in Paradox more 13 years ago - [Help] - Prevent Aplication Hang using Zeos->MySQL
by rydz™ in Tip n Trik Pemrograman more 12 years ago - Blog untuk member....
by deLogic in Kritik & Saran more 15 years ago - Login Program
by javaman in Hal umum tentang Pascal Indonesia more 14 years ago - bagaimana cara Save Wav
by alevan in Multimedia & Graphic Enhancement more 9 years ago - Gimana cara proteksi paling aman ?
by EkoIndri in Tip n Trik Pemrograman more 15 years ago - Save hasil query di DBGrid ke dalam file Excel
by nunkee in MySQL more 10 years ago - Membagi gambar bitmap dalam kotak-kotak
by alfa1412 in Hal umum tentang Pascal Indonesia more 12 years ago - e book delphi .net
by prakasiwi in OOT more 14 years ago - Alokasi & Acak No Undian
by tAtA in Tip n Trik Pemrograman more 13 years ago