Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.308 RSS
←   Июнь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.308 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 154
от 16.06.2005, 18:30

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 12

Вопрос № 22027: Здравствуйте. У меня возник вопрос. 1. Как написать этот код, чтобы в диалоге были кнопки "Да и нет", а то у меня 3 нопки "Да, нет, отмена" :-)...

Вопрос № 22.027
Здравствуйте.
У меня возник вопрос.
1. Как написать этот код, чтобы в диалоге были кнопки "Да и нет", а то у меня 3 нопки "Да, нет, отмена" :-)

Приложение:

Отправлен: 10.06.2005, 22:23
Вопрос задал: Алексей (статус: Посетитель)
Всего ответов отправлено: 12
Отвечает: Denisss
Здравствуйте, Алексей!
Замените MB_YESNOCANCEL на MB_YESNO и в диалоге останется только Yes (да) и No (нет)
Ответ отправил: Denisss (статус: 4-ый класс)
Отправлен: 10.06.2005, 22:37
Отвечает: streetcat
Здравствуйте, Алексей!
какого **я???
Алексей, али ты прикалываешся?
поставил MB_YESNOCANCEL в функцию MessageBox и еще спрашивает ;)
замени MB_YESNOCANCEL на MB_YESNO.....
да тебе бы анекдоты писать... ;))
---------
WinERROR: Keyboard not detected. Press Enter to continue
Ответ отправил: streetcat (статус: 6-ой класс)
Отправлен: 10.06.2005, 22:37
Отвечает: Bochvarov NikB
Здравствуйте, Алексей!
if MessageBox(Handle, PChar(q), 'Удаление',
MB_YESNO + MB_ICONQUESTION) <> ID_YES then exit;
MB_YESNOCANCEL >>>> MB_YESNO
Прочитай хелп и посмотри на соурце: Ctrl+F1 на MB_YESNOCANCEL
Ответ отправил: Bochvarov NikB (статус: 3-ий класс)
Отправлен: 10.06.2005, 22:48
Отвечает: Stamm
Здравствуйте, Алексей!
Всё очень и очень просто
Поменяй MB_YESNOCANCEL на MB_YESNO
Ответ отправил: Stamm (статус: 3-ий класс)
Отправлен: 10.06.2005, 23:38
Отвечает: Ballon
Здравствуйте, Алексей!
Правильно ты же в MessageBox написал MB_YESNOCANCEL это значит что у тебя будет три кнопки YES(Да) NO(Нет) CANCEL(Отмена) напиши MB_YESNO и все.
Ответ отправил: Ballon (статус: 3-ий класс)
Отправлен: 11.06.2005, 07:11
Отвечает: Ерёмин Андрей
Здравствуйте, Алексей!
В параметре, отвечающем за кнопки диалога, просто напишите константу 36. Это эквивалентно кнопкам 'Yes' и 'No'.
Ответ отправил: Ерёмин Андрей (статус: 6-ой класс)
Отправлен: 11.06.2005, 07:24
Отвечает: nimoid
Здравствуйте, Алексей!
А в чем проблема? MB_YESNO напиши вместо MB_YESNOCANCEL.
Ребят, ну вы уж совсем вопросы какие-то детские задаете, хотябы эксперементируйте или фантазии нехватает? :)
Ответ отправил: nimoid (статус: 2-ой класс)
Отправлен: 11.06.2005, 11:16
Отвечает: Jadd
Здравствуйте, Алексей!
Нужно заменить константу MB_YESNOCANCEL на MB_YESNO. Удачи.
---------
Hakuna matata
Ответ отправил: Jadd (статус: 9-ый класс)
Отправлен: 11.06.2005, 11:43
Отвечает: Tsechoev Bagaudin
Здравствуйте, Алексей!
procedure TMainPlugInForm.pmDelClick(Sender: TObject);
var q: string;
begin
if tvTree.Selected.Parent = nil then
q := 'Удалить выбранную группу?' else
q := 'Удалить пользователя из группы ' + tvTree.Selected.Parent.Text + '?';

if MessageDlg('Удаление',q,mtConfirmation,[mbYes, mbNo],0) = mrNo then exit;
s := '';
if InputQuery('Удаление','Удалить выбранную группу', s) and (Trim(s) <> '') then
begin
with tvTree do
begin
while Selected.Count > 0 do
begin
Dispose(Selected.getFirstChild.Data);
Selected.getFirstChild.Delete;
end;
Selected.Delete;
end;
SaveTreeToIni(FName, tvTree);
end;
---------
Есть только одно зло - невежество, и только одно благо - знания
Ответ отправил: Tsechoev Bagaudin (статус: 2-ой класс)
Отправлен: 12.06.2005, 13:31
Отвечает: sir henry
Здравствуйте, Алексей!
Вместо MB_YESNOCANCEL напишите MB_YESNO.
Загляните в Хелп функции MessageBox - там все эти опции описаны более чем понятно. :)
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 13.06.2005, 04:56
Отвечает: VBA
Здравствуйте, Алексей!
В приложении исправленный код.

Приложение:

---------
Неправ вечно юзер, ибо прав всегда Админ!

Ответ отправил: VBA (статус: 4-ый класс)
Отправлен: 13.06.2005, 13:10
Оценка за ответ: 2
Комментарий оценки:
Не вижу разницы :-(
Отвечает: Delphin
Здравствуйте, Алексей!
Прикольно кончено. Наверно шутка? Если нет то смотри в приложение.
MB_YESNO на сделать вместо MB_YESNOCANCEL

Приложение:

---------
Ищу сервис пак для школы ^)))

Ответ отправил: Delphin (статус: 5-ый класс)
Отправлен: 15.06.2005, 15:41

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus 		Отписаться
Вспомнить пароль
В избранное