Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
ivan691
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 126
#1

Как сделать так: if pos *** then *** else *** и еще одно действие? - Delphi

29.07.2015, 11:39. Просмотров 350. Ответов 8
Метки нет (Все метки)

То есть например if pos *** then ShowMessage('No') else ShowMessage('Yes') и если Yes
то должно выполниться еще одно действие (к примеру показать еще одно сообщение).
Я не понимаю как.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.07.2015, 11:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как сделать так: if pos *** then *** else *** и еще одно действие? (Delphi):

Как сделать, чтобы из меню выплывало еще одно? - Delphi
как создать что бы из меню виплывало еще одно. Например Формат -Линия, а из линии цвет, толщина, стиль:help:

Обработка клавиш, как сделать так, чтобы зажать клавишу Q выполнялось определенное действие, если отпустить - Delphi
Обработка клавиш, как сделать так, чтобы зажать клавишу Q выполнялось определенное действие, если отпустить, то действие прекращается. ...

Как сделать так, чтобы при нажатии на кнопку в StringGrid создавалась еще 1 строка снизу - Delphi
Есть StringGrid и с 1 строкой, вводятся данные в стандартные компоненты и после нажатия кнопки они добавляются в StringGrid. Как сделать...

Как на кнопку Insert в FormView завязать еще одно действие? - C# MVC
У меня на дочерней форме есть FormView, которую я использую для добавления записей в таблицу. По-умолчанию FormView загружается в режиме...

Добавить в программу еще одно действие - Assembler
Доброго времени суток! Дана программа. Нужно добавить на вывод строчку с результатом (x*y)/(x/y) org 256 ;дос...

как сделать так что бы в таблице radio одно выбирать - PHP
как сделать так что бы в таблице radio одно выбирать? for($i=0; $i < count($str_e); $i++) { echo "<input type = 'radio' name =...

8
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,697
Записей в блоге: 1
29.07.2015, 11:43 #2
Delphi
1
2
3
4
if MessageDlg('Некое сообщение', mtError, [mbYes, mbNo], 0) = mrYes then
  ShowMessage('Ты нажал кнопку "Да"')
else
  ShowMessage('Ты нажал кнопку "Нет или закрыл диалог"')
0
ivan691
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 126
29.07.2015, 11:49  [ТС] #3
Прошу прощения, я немного неправильно объяснил
Не так:
> и если Yes
А так:
и если ShowMessage('Yes') то должно показаться еще одно сообщение
0
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,697
Записей в блоге: 1
29.07.2015, 11:56 #4
ShowMessage('Yes') это очень примитивный диалог, которй просто имеет 1 кнопку и способен выдать заданый текст, настроить никак нельзя больше.

расширеный диалок, к примеру MessageDlg, который я привел, в нем есть возможность выставить необходимые кнопки, и взять реакции нажатия этих кнопок, пример выше

Цитата Сообщение от ivan691 Посмотреть сообщение
и если ShowMessage('Yes') то должно показаться еще одно сообщение
ну я не знаю.. тупо тогда так

Delphi
1
2
3
4
5
if a = b then
begin
ShowMessage('Yes') ;
ShowMessage('Это сообщение возможно было вызвано после диалога с надписью "Yes"') 
end;
вот так вот 2 диалога друг за другом выведутся, или я не понимаю сути вопроса
0
Игорь[Igor]
716 / 471 / 53
Регистрация: 24.12.2008
Сообщений: 3,901
29.07.2015, 11:57 #5
Delphi
1
2
3
4
5
6
7
if MessageDlg('Некое сообщение', mtError, [mbYes, mbNo], 0) = mrYes then
begin
  ShowMessage('Ты нажал кнопку "Да"')
  ShowMessage('Еще одно сообщение')
end
else
  ShowMessage('Ты нажал кнопку "Нет или закрыл диалог"')
0
Puporev
Модератор
52415 / 40262 / 13596
Регистрация: 18.05.2008
Сообщений: 93,073
29.07.2015, 12:03 #6
Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
if pos('***',Edit1.Text)=0 then  ShowMessage('No') else
 begin
  ShowMessage('Yes');
  ShowMessage('Привет');
 end;
end;
0
ivan691
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 126
29.07.2015, 12:06  [ТС] #7
Игорь[Igor], да, спасибо.
Но если я не ошибаюсь, то правильно этот код должен выглядить так?
Delphi
1
2
3
4
5
6
7
8
if MessageDlg('Некое сообщение', mtError, [mbYes, mbNo], 0) = mrYes then
begin
  ShowMessage('Ты нажал кнопку "Да"')
  ShowMessage('Еще одно сообщение')
end
else
BEGIN
  ShowMessage('Ты нажал кнопку "Нет или закрыл диалог"')
0
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,697
Записей в блоге: 1
29.07.2015, 12:09 #8
операторные скобки нужны лишь в случае, если необходимо выполнить несколько действий в блоке, если одно - то не обязательно ставить операторные скобки
0
Игорь[Igor]
716 / 471 / 53
Регистрация: 24.12.2008
Сообщений: 3,901
29.07.2015, 12:11 #9
После else если только 1 вызо диалогогого окна можно не писать begin
0
29.07.2015, 12:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.07.2015, 12:11
Привет! Вот еще темы с ответами:

.NET 4.x Как сделать так, чтобы VB.Net сканировал текст и находя в нем символ, выполнял действие? - Visual Basic .NET
Помогите, пожалуйста! Р.S. Простите за ошибки

Как сделать так чтобы в матрице присутствовали еще и нулевые элементы и программа считала их количество? - C++
#include <iostream> #include <cstdlib> #include <ctime> using namespace std; int main() { setlocale(LC_ALL,...

Как сделать так, чтоб программа считала последовательное нажатие кнопок, а после выполнила требуемое мной действие - C#
У меня тут 2 вопроса: Как сделать так, чтоб программа ссчитала последовательное нажатие кнопок, а после выполнила требуемое мной...

Сделать так, чтобы при каждом изменении переменной pos вызывалась некоторая сторонняя функция - C#
Нужно сделать так, чтобы при каждом изменении переменной pos вызывалась некоторая сторонняя функция (если быть точным, процедура прорисовки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru