|
Разные сообщения - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
21.02.2011, 06:17
|
#1
|
|
|
|
Разведчик
|
Регистрация: 20.08.2010
Сообщений: 0
Популярность: 18
Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 4 сообщениях
|
Разные сообщения
С дельфи знаком немного , поэтому вопрос многим покажется глупым но все же. Как сделать , что бы при нажатии на кнопку , вылезали разные сообщения? Если один раз написать ShowMessage('blablabla'); то всегда вылазит одно и тоже сообщение , а мне нужно , что бы они выводились по порядку , например 1 раз нажал на кнопку - сообщение1 , второй раз нажал на кнопку - сообщение2 и т.д.
Пытался сделать так
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag of
0 : begin Button1.Caption := 'сообщение1'; Button1.Tag := 1; end;
1 : begin Button1.Caption := 'сообщение2'; Button1.Tag := 2; end;
2 : begin Button1.Caption := 'сообщение3'; Button1.Tag := 3; end;
3 : begin Button1.Caption := 'сообщение4'; Button1.Tag := 0; end;
end;
Но оно меняет сообщение на кнопке , а не то , которое появляется по нажатию на нее.
Сделал так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
post : integer;
begin
post := random(4);
case post of
0: ShowMessage('1');
1: ShowMessage('2');
2: ShowMessage('3');
3: ShowMessage('4');
end;
Оно работает , но можно ли другими способами сделать тоже самое?
Последний раз редактировалось zanndr; 21.02.2011 в 06:40.
|
|
|
21.02.2011, 12:15
|
#2
|
|
|
|
Фельдмаршал
|
Регистрация: 13.08.2009
Сообщений: 1,004
Популярность: 25098
Золото Zhyk.Ru: 350
Сказал(а) спасибо: 110
Поблагодарили 830 раз(а) в 395 сообщениях
|
Re: Разные сообщения
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
case Button1.Tag of
0 : begin ShowMessage('1'); Button1.Tag := 1; end;
1 : begin ShowMessage('2'); Button1.Tag := 2; end;
2 : begin ShowMessage('3'); Button1.Tag := 3; end;
3 : begin ShowMessage('4');Button1.Tag := 0; end;
end;
Как бы.
________________
Ни одно доброе дело не остается безнаказанным.
Программы:
PW: Флудобот, Девизхак, OutFocusBot, OutFocusBot ver 3 (freepvp), PWMultiHack ver 3, AutoRespawn.
JD: JDMultiHack, JDFlooder, JDBot.
Статьи: Отключаем UAC, Ищем базовый адрес Perfect World, "Патчер памяти" или "Пишем флайхак", "Патчер памяти 2" или "Пишем Джампхак", "Поиск инжектов" или "Наш код в чужом процессе"
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Статья] [KZH] Разные Strafe в loop'е
|
RIscRIpt |
Статьи и описания по Counter-Strike |
2 |
23.08.2010 11:55 |
[Услуги] РАЗНЫЕ УСЛУГИ
|
lolopo123 |
Point Blank |
2 |
08.06.2010 15:50 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 05:35.
|
|