Смена текста у кнопки

[Spq]

Помогите написать код, который бы менял текст у кнопки на тест1 тест2 тест3. Нужно это сделать через таймер, а не тупо 3 раза на кнопку)

[evg_m]

"тупо" пишем в событии(event) для таймера (OnTimer)

     if MyButton.Caption ='тест1' then MyButton.Caption:='тест2'
else if MyButton.Caption ='тест2' then MyButton.Caption:='тест3'
else                                   MyButton.Caption:='ну сколько можно!';

"неожиданно" выясняется что вообще-то таких заголовков может быть много

const myCaption: array[0..100] of string = ('тест1', 'тест2', 'тест3', ...);

k:=Mybutton.tag +1;
if k<high(MyBytton) then begin
  Mybutton.Caption:=myCaption[k];
  MyButton.Tag:=k;
end
else 
  Mybutton.Caption:='ну сколько можно!!!';

[Spq]

Не ну вы конечно вообще профессор, не спорю, но чейта при компиляции кода у меня кнопка сама меняет название? Я главный этого приложения, а значит я должен решать когда Ей начать менять названия. В данном случае я хочу чтобы по нажатию на кнопку она менялась, а не сама. (один раз нажал на кнопку и начал работать таймер. Чтобы вы не подумали что я противоречу себе же!!!)

[evg_m]

но чейта при компиляции кода у меня кнопка сама меняет название?

так значить НЕ НАДО запускать таймер сразу при старте приложения.
в ObjectInspector для таймера
Enabled надо False.

(один раз нажал на кнопку и начал работать таймер.

а вот когда "нажмете" (Onclick) кнопку, тогда и запустите.

timer.Enabled:=true;

а чтобы ЕЩЕ раз не нажать, то здесь же

StartButton.Enabled:=false; //заблокировать
и/или
StartButton.Visible:=false; // спрятать

[Spq]

Сообщение от evg_m

так значить НЕ НАДО запускать таймер сразу при старте приложения.
в ObjectInspector для таймера
Enabled надо False.


а вот когда "нажмете" (Onclick) кнопку, тогда и запустите.

timer.Enabled:=true;

а чтобы ЕЩЕ раз не нажать, то здесь же

StartButton.Enabled:=false; //заблокировать
и/или
StartButton.Visible:=false; // спрятать

.
Всё понял! У меня просто ещё помимо самой кнопки работает progressbar:

Progressbar1.Position:=0; у кнопки

 у таймера

If Progressbar1.Position < Progressbar1.max then 
Progressbar1.Position:=progressbar.Position+1
else
begin
Timer1.enabled:=false;

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

showmessage('готово'); ну или у кнопки той же.

(пишу с теляфонуса в такой глуши. Так одиноко, делать нечего, на ноутбуке только делфи и пасьянс косынка которую я уже терпеть не могу!!1 извините если что не так!)

[evg_m]

У меня просто ещё помимо самой кнопки работает progressbar:

т.е. просто отключать таймер на старте не получается.

отключаем обновление кнопок у самой кнопки (в предположении использования второго варианта с массивом).
ObjectInspector
Tag ставим число заведомо превышающее размер массива пусть это будет 9999.

тогда
1. на кнопке "запуска" (Onclick)

  MyButton.tag:=0; //сбрасываем "флаг блокировки"

2. в таймере (OnTimer)

if MyButton.tag =9999 {наше волшебное число} then // да-да именно так в ветке then НИКАКИХ действий
else begin
  // ну а здесь все как было
end;

или проще

if MyButton.Tag<>9999 then begin
// меняем текст кнопки 
end;