|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как при нажатии на кнопку сменялся текст
Нужно чтобы при нажатии на кнопку, сменялся текст на кнопке, при нажатии ещё раз ставился старый текст и так далее
|
#2
|
|||
|
|||
Создать флаг для кнопки, и задавать текст для кнопки в зависимости от флага
Код:
var flag:integer; i:integer = 0; procedure TForm1.Button1Click(Sender: TObject); begin i:=i+1; case i of 1:Button1.Caption:='Button 1'; 2:Button1.Caption:='Button 2'; 3:Button1.Caption:='Button 3'; 4:Button1.Caption:='Button 4'; 5:Button1.Caption:='Button 5'; 6:Button1.Caption:='Button 6'; end; end; примерно так Последний раз редактировалось ApxaHGe1, 17.11.2009 в 13:18. |
#3
|
||||
|
||||
Небольшое дополнение:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin i:=i+1; if i > 6 then i := 1; case i of 1:Button1.Caption:='Button 1'; 2:Button1.Caption:='Button 2'; 3:Button1.Caption:='Button 3'; 4:Button1.Caption:='Button 4'; 5:Button1.Caption:='Button 5'; 6:Button1.Caption:='Button 6'; end; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
|||
|
|||
Я так понял, это для вашей игры, и у кнопки может быть две надписи: "Пауза" и "Продолжить". Создайте все-таки глобальную переменную
Код:
var Playing: Boolean; А при нажатии на кнопку будет происходить следующее: Код:
begin Playing := not Playing; if Playing then Button.Caption := 'Пауза' else Button.Caption := 'Продолжить'; Timer.Enabled := Playing; ... end; |
#5
|
|||
|
|||
Пасиба вам
|
#6
|
||||
|
||||
Для таких целях разработчики делфи придумали свойство компонентов Tag. Можно использовать его и не надо никаких флагов
|
#7
|
||||
|
||||
А еще проще - проверять, что написано на кнопке сейчас).
Жизнь - это игра... Сюжет не очень, зато графика - отпад. |
#8
|
|||
|
|||
Цитата:
Цитата:
|
#9
|
||||
|
||||
Я тоже так считаю)
|