Текущий архив: 2005.12.25;
Скачать: CL | DM;

Вниз

MessageDlg   Найти похожие ветки 

← →
john_mag ©   (2005-12-07 12:07) [0]

Доброго времени суток! Не могу понять в чём дело: код следующий...
//Выход из программы
procedure TForm1.BitBtn4Click(Sender: TObject);
var m : integer;
begin
m:= 1;
if MessageDlg("Вы действительно хотите выйти из программы?",
   mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrNo then m:= 0;
if m = 1 then Application.Terminate;
end;

...но выход из программы происходит даже если нажимаю No! Подскажите, что у меня не так!

---

← →
Kolan ©   (2005-12-07 12:13) [1]

procedure TForm1.BitBtn1Click(Sender: TObject);
var m : integer;
begin
m:= 1;
if MessageDlg("Вы действительно хотите выйти из программы?",
  mtConfirmation, [mbYes, mbNo], 0{Тут нет mbYes}) = mrNo then m:= 0;
if m = 1 then Application.Terminate;
end;

PS Кстати у меня компилятор на твой код ругнулся сказав что слишком много параметров...

---

← →
Kolan ©   (2005-12-07 12:15) [2]

Так не проше?

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if MessageDlg("Вы действительно хотите выйти из программы?",
 mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
 Application.Terminate;
end;

---

← →
john_mag ©   (2005-12-07 12:22) [3]

ИМХО! теперь у меня невозможно из проги выйти даже при нажатии Yes! )

---

← →
Хинт ©   (2005-12-07 12:24) [4]

if Messagebox("","",MB_OKCANSEL)=ID_OK then ...

---

← →
Kolan ©   (2005-12-07 12:34) [5]

Незнаю у меня все работает... Вот весь текст проекта...

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons;

type
 TForm1 = class(TForm)
   BitBtn1: TBitBtn;
   procedure BitBtn1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if MessageDlg("Вы действительно хотите выйти из программы?",
 mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
 Application.Terminate;
end;

end.

---

← →
john_mag ©   (2005-12-07 12:42) [6]

спасибо >Kolan ©   (07.12.05 12:34) [5]
надо было убрать QDialogs!

---

← →
Rem ©   (2005-12-07 13:19) [7]

И то верно - на каждое нажатие кнопки пользователем - переспрашивать: "Вы уверены?"...

procedure TForm1.Button1Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := (MessageDlg("Вы действительно хотите выйти из программы?", mtConfirmation, [mbYes, mbNo], 0) = mrYes) and
           (MessageDlg("Вы уверены?", mtConfirmation, [mbNo], 0) = mrYes);
end;

:-)

---

← →
Leonid Troyanovsky ©   (2005-12-07 14:06) [8]

> Rem ©   (07.12.05 13:19) [7]
> И то верно - на каждое нажатие кнопки пользователем - переспрашивать:
>  "Вы уверены?"...


Особенно приятны подобные диалоги при завершении сессии.

--
Regards, LVT.

---

Страницы: 1 вся ветка

Текущий архив: 2005.12.25;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.049 c