Кнопки

← →
Tru © (2007-03-16 17:16) [0]

Ребят, помогите пожалуйста... На форме созданы две кнопки одна закрыть а другая должно запрещать или разрешать вторую кнопку. А надпись на кнопке после нажатия должна меняться с "Активировать кнопку выхода" на "Запретить кнопку выхода". Как все это прописать?

← →
clickmaker © (2007-03-16 17:21) [1]

> Как все это прописать?

руками

← →
Tru © (2007-03-16 17:22) [2]

:) как смешно!!!

← →
Vlad Oshin © (2007-03-16 17:22) [3]

onClick
там все и делать...

← →
clickmaker © (2007-03-16 17:23) [4]

а в чем проблема?

← →
stone © (2007-03-16 17:29) [5]

> clickmaker © (16.03.07 17:23) [4]
> а в чем проблема?

Гыы. Как в чем? Код давай :))

Введи дополнительную глобальную переменную p что будет отвечать за: давать доступ к 1 кнопки или нет.
А тогда в but2. Onclick
if p then begin
caption:=’dddsdsdsds’
but1.eneblade:=false;
end
else
begin
caption:=’ghfgggfgfgffggf’
but1.eneblade:=true;
end;

← →
RASkov (2007-03-16 21:06) [7]

> Введи дополнительную глобальную переменную

Зачем переменную?
procedure Button2click;
begin
ButtonExit.Enabled:=not ButtonExit.Enabled;
if ButtonExit.Enabled then Button2.Caption:="Запретить кнопку выхода" else Button2.Caption:="Активировать кнопку выхода";
end;

Кнопки Найти похожие ветки