VPF::MessageDlg - Форум программистов

MoLeX

Дата 27.8.2008, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Местный пингвин

Профиль
Группа: Модератор
Сообщений: 4076
Регистрация: 17.5.2007

Репутация: нет
Всего: 140

Прива всем. извените конечно за мой откровенно ламерский вопрос но все же:

Код


procedure TForm1.buttonSelectedClick(Sender: TObject);
var
bbb : Integer;
begin
bbb := MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOKCancel, 0);
//ShowMessage();
end;

как сделать хчтобы по кнопке ОК прога завершалась, а по Cancel продолжалась?

smile

--------------------

Amazing

Qu1nt

Дата 27.8.2008, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

Код


if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOKCancel, 0) = mrOK then
  Close;

Это сообщение отредактировал(а) Qu1nt - 27.8.2008, 19:01

Vetos

Дата 27.8.2008, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 312
Регистрация: 4.4.2005

Репутация: 1
Всего: 4

Вот так:

Код


r:=MessageDlg('Файл '+ FName + ' будет удален.', mtWarning, [mbOk,mbCancel] , 0) ;
if r=mrOk then form1.close;

--------------------

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

MoLeX

Дата 27.8.2008, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Местный пингвин

Профиль
Группа: Модератор
Сообщений: 4076
Регистрация: 17.5.2007

Репутация: нет
Всего: 140

Qu1nt,
Vetos, спасибо... у меня чето не работало((( ну и лано, зато помогли smile

--------------------

Amazing

Rohoss

Дата 27.8.2008, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Вместо form1.close\close попробуй Application.Terminate;

--------------------

Файловый менеджер Explorer.Net скачать video

Exai1e

Дата 27.8.2008, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30

ой

Это сообщение отредактировал(а) Exai1e - 28.8.2008, 07:20

--------------------

"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"

Christoph

Дата 27.8.2008, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

Цитата(Rohoss @ 27.8.2008, 19:54)

Вместо form1.close\close попробуй Application.Terminate;

Код


Application.Terminate;

Это срабатывает...a почему не работает интересно close ?!

--------------------

Exai1e

Дата 27.8.2008, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30

Это сообщение отредактировал(а) Exai1e - 28.8.2008, 07:20

--------------------

"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"

Rohoss

Дата 27.8.2008, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Так close выгружает форму, а нам ведь надо завершить приложения

--------------------

Файловый менеджер Explorer.Net скачать video

Qu1nt

Дата 27.8.2008, 23:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

По-моему вопрос решен, разве нет?!

MoLeX

Дата 28.8.2008, 05:43 (ссылка)

(нет голосов)

Загрузка ...

Местный пингвин

Профиль
Группа: Модератор
Сообщений: 4076
Регистрация: 17.5.2007

Репутация: нет
Всего: 140

да решен. пардон что не отметил его)))

работает первый способ по завершению программы. всем еще раз спасибо

--------------------

Amazing

Poseidon

Дата 28.8.2008, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Vetos, можно поинтересоваться, зачем для этого вводить "левую" переменную?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

eXpertSumy

Дата 18.7.2009, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 18.7.2009
Где: Украина

Репутация: нет
Всего: нет

Ребята подскажи те как изменить название диалогового окна при этом сохранить эго тип. К примеру если окно имеет тип mtConfirmation то он имеет и название Confirmation.
Какой код надо написать или где надо изменить вручную заглавие диалогового окна?
Спасибо за помощь!!!

Christoph

Дата 19.7.2009, 00:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

Цитата

mtWarning             A message box containing a yellow exclamation point symbol.
mtError                         A message box containing a red stop sign.
mtInformation             A message box containing a blue "i".
mtConfirmation    A message box containing a green question mark.
mtCustom             A message box containing no bitmap. The caption of the message box is the name of the application's executable file.

Тут поменять ничего самому нельзя, ну разве что предлагают mtCustom - заглавие Message Box из имени испольняемого файла.

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »