Вы тут какие-то прям сложные вещи до меня обсуждали, даже спрашивать стыдно, но всё-таки. Хотел сделать так, что бы одна кнопка button2 при нажатии меня своё caption, а при повторном нажатии возвращалась в исходное значение, пробовал так:
procedure TForm5.Button2Click(Sender: TObject);
begin
if timer1.Enabled=false then begin
timer1.Enabled:=true;
k:=2;
button2.Caption:='Ñòîï!';
shape1.Brush.Color:=clgreen;
shape2.Brush.Color:=clblack;
shape3.Brush.Color:=clblack;
end;
if timer1.Enabled=true then begin
timer1.Enabled:=false;
k:=1;
button2.Caption:='Ïóñê!';
shape1.Brush.Color:=clblack;
shape2.Brush.Color:=clblack;
shape3.Brush.Color:=clblack;
end;
end;
не работает.
P.S. таймер исходно отключен.
пробовал еще использовать переменную k, вместо включенности/выключенности таймера в условиях, то же результат, не воркает. Подскажите как лучше сделать, в нете дельного ничего не нашел.