Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
vassassin
0 / 0 / 3
Регистрация: 27.02.2013
Сообщений: 19
#1

Caption и OnClick - Delphi

18.03.2013, 02:19. Просмотров 433. Ответов 3
Метки нет (Все метки)

Делаю програму шутку
суть в том, что есть форма, на которой label.
Форма растянута по экрану, лейбл по форме
нужно сделать так, что бы по нажатию на форму текст менялся, при чём так
клик - текст1б клик - текст2 и т.д
как это осущестивить?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2013, 02:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Caption и OnClick (Delphi):

Как сделать так что, если на 2 форме значение label.caption поменялось, то и на 1 форме у label.caption было такое же
У меня есть 2 формы. На них есть по одному label. Как сделать так что, если на...

не присваивает Caption
добрый день, не присваивает RadioButton'ам свойство Caption, где ошибка ? ...

Caption и кнопки
Имеется 16 кнопок,Caption одной из них принимает значение "$". Как сделать так...

caption button
добрый вечер, как написать в сaption у кнопки юникод? просто надо сделать n-ное...

Изменение Caption'a в for'e
Здравствуйте) Есть 10 Label'ов на форме мне нужно циклом изменить их...

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

3
angstrom
18.03.2013, 02:20
  #2

Не по теме:


Ставить в угол за подобные шутки.

1
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
18.03.2013, 08:05 #3
Delphi
1
2
3
4
5
6
7
8
9
10
Const
  ArrTxt : Array[0..4] Of String =
  ('текст1', 'текст2', 'текст3', 'текст4', 'текст5');
Var
  NClick : Integer = 0;
procedure TForm2.FormClick(Sender: TObject);
begin
  Label1.Caption:=ArrTxt[NClick];
  NClick:=(NClick+1) Mod 5;
end;
0
ILNAR_93
Android
236 / 236 / 49
Регистрация: 19.01.2013
Сообщений: 1,855
Записей в блоге: 3
18.03.2013, 12:30 #4
можно case использовать.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.FormClick(Sender: TObject);
var
i:integer;
begin
randomize;
i:=random(5);//тоесть i = числy от 0 до 5
case i of
  0:Label1.caption:='текст1';
  1:Label1.caption:='текст2';
  2:Label1.caption:='текст3';
3:Label1.caption:='текст4';
4:Label1.caption:='текст5';
5:Label1.caption:='текст6';
end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.03.2013, 12:30
Привет! Вот еще темы с решениями:

Изменить Caption
Всем привет! К примеру хочу изменить caption procedure...

Caption у формы
Доброго времени суток, подскажите, как реализовать такое: нужно caption формы...

Компоненты(Caption)
Доброго времени суток! Не могу сформулировать вопрос понятный интернету поэтому...

Label.caption и timer
Здравствуйте! Делаю программку и для него нужно сделать что-то типа...


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

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

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