Вот уж не думал, что тут не будет работать.......

← →
Filat © (2002-07-24 19:59) [0]

Столкнулся с элементарным !!!, но почему не работает, не пойму, может сам компонент виноват, хотя пробовал и на стандартных, тоже не сработало.
Есть кнопка Button или у меня от Ra_Lib компоненты, так вот, как заставить смениться её капшину на её же событие OnClick.
procedure TMain_kb.RAhtButton2Click(Sender: TObject);
begin
if RAhtButton2.Caption="Рабочий цикл" then
RAhtButton2.Caption:="";
end;
Работает !!!!

procedure TMain_kb.RAhtButton2Click(Sender: TObject);
begin
if RAhtButton2.Caption="Рабочий цикл" then
RAhtButton2.Caption:="Остановить";
end;
Не работает ???
Почему?

← →
Anatoly Podgoretsky © (2002-07-24 20:07) [1]

Просто RAhtButton2.Caption <> "Рабочий цикл" или ты не получаешь управление в обработчик, поставь две точки останова и посмотри

← →
Palladin © (2002-07-24 20:15) [2]

должно работать...
если только у тебя нагрузка на процессор во время выполнения этого участка большая тогда, может статся что до конца работы проги caption так и не поменяется,особенно если после проработки проги она сразу завершается то ты и не заметишь...
могу посоветовать после смены caption вставить
Application.ProcessMessages;
если и не в этом дело то это уже глюк :) может тебе стоит комп перезагрузить :)

← →
Filat © (2002-07-24 20:25) [3]

Мда, .... почёсывая макитру.... :))))))))
Все правильно, работает, я извиняюсь, вот полный код процедуры, в нём получается что значение присваивается и потом снова меняется на исходный:
procedure TMain_kb.RAhtButton2Click(Sender: TObject);
begin
if RAhtButton2.Caption="Рабочий цикл" then
RAhtButton2.Caption:="Остановить";
................

if RAhtButton2.Caption="Остановить" then
RAhtButton2.Caption:="Рабочий цикл";
end;

Сделал так, все заработало:

procedure TMain_kb.RAhtButton2Click(Sender: TObject);
begin
if RAhtButton2.Caption="Рабочий цикл" then
RAhtButton2.Caption:="Остановить"
else
RAhtButton2.Caption:="Рабочий цикл";
end;

Спасибо, видно устал уже.....

Это другое дело, надежно работающий кусок, защищет даже от ошибок дизайн-тайм

Вот уж не думал, что тут не будет работать....... Найти похожие ветки