?
Solved

Conformation box??

Posted on 2003-03-18
2
Medium Priority
?
228 Views
Last Modified: 2012-05-04
is there a function within delphi for a conformation box?

for example. if in a program I try and delete a record from a database, rather than just delete it I would like a box to appear saying "are you sure you want to do this?"

Best Regards.

Barry
0
Comment
Question by:BarryHL
2 Comments
 
LVL 17

Accepted Solution

by:
geobul earned 60 total points
ID: 8158496
Hi,

MessageDlg function
MessageDlgPos function
Application.MessageBox function
windows.MessageBox function
CreateMessageDialog function

Regareds, Geo
0
 

Expert Comment

by:-Yoshi-
ID: 8158599
this will do it..


if (MessageDlg('Are you sure you'd like to delete the record?'
  , mtConfirmation, [mbYes,mbNo], 0)=mrYes) then
begin
  // Delete record

end;
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Loops Section Overview
Enter Foreign and Special Characters Enter characters you can't find on a keyboard using its ASCII code ... and learn how to make a handy reference for yourself using Excel ~ Use these codes in any Windows application! ... whether it is a Micr…
Suggested Courses

571 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question