|
Вопрос # 274/ вопрос решён / |
|
Команда кнопке : Memo1.text:= 'Первое слово';
как сделать так чтобы нажав второй раз
высветилась другая фраза например:'второе слово',
нажав третий раз 'третье слово' и так далее.
 |
Вопрос задал: Толков Геннадий Викторович (статус: Посетитель)
Вопрос отправлен: 20 января 2007, 01:06
Состояние вопроса: решён, ответов: 2.
|
Ответ #1. Отвечает эксперт: Матвеев Игорь Владимирович
Здравствуйте, Толков Геннадий Викторович!
Очень просто - ставите глобальную переменную счетчик, увеличиваете его каждый раз при вызове обработчика, и выводите текст в соответствии в значением этого счетчика.
Приложение: Переключить в обычный режим- const
- strs : array[0..2] of string =
-
-
-
- var
- Counter : Integer;
-
- begin
-
- // in Button.Click
- Memo1.text:= strs[Counter];
- Inc(Counter);
-
- end.
-
Ответ #2. Отвечает эксперт: Дима Гусаков
Здравствуйте, Толков Геннадий Викторович!
 |
Ответ отправил: Дима Гусаков (статус: 2-ой класс)
Время отправки: 20 января 2007, 09:01
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 20 января 2007, 01:34; участников в обсуждении: 1.
|
Сергей Устинов (статус: 2-ой класс), 20 января 2007, 01:34 [#1]:
Можете сделать, например так:
Создаете глобальную переменную, которая будет помнить "номер" нажимания клавиши.
Пример:
...
var
Form1: TForm1;
nom: integer=1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
case nom of
1: ShowMessage('Сообщение первое');
2: ShowMessage('Сообщение второе');
3: ShowMessage('Сообщение третье');
else ShowMessage('Сообщение непонятно какое  ');
end;
inc(nom);
end;
Удачи!
|
31 января 2011, 19:26: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
