Форум: "Начинающим";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.013 c