Message Dialog Box with "IF"

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 391,768 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,152 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Pascal and Delphi advertiser:

Thread Tools Display Modes

Views: 935 | Replies: 0 | Solved

•

Join Date: Nov 2007

Posts: 29

Reputation: ferhatkuskaya is an unknown quantity at this point

Rep Power: 1

Solved Threads: 0

ferhatkuskaya ferhatkuskaya is offline

Offline

Light Poster

Message Dialog Box with "IF"

Nov 26th, 2007

Hİ THANK YOU FOR YOUR LABEL COMMENTS LETS FORGET THAT QUESTION. I have chosen it with a different solution and

. now I want to know how I will use the message buttons with if conditions...
I dont know why my message dialog box's message values are passive in my project. I want to make exited from my program when I click the yes button of message dialog box. But I couldnt get this result from these message dialog box. CAn you help me immediately pls? My code content is like below:

procedure programexit;
var
buton:integer;
begin
Buton:= Application.MessageBox('Are you sure to exit?',
'Mesaj Kutusu',
mb_YesNoCancel+mb_DefButton1);
if Buton = 1 Then Halt;
end;

procedure TAnaform.Image11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image11.Visible:=True;
CIKIS;
end;