VPF::Как изменить свойства кнопки? - Форум программистов

Waterman

Дата 23.9.2005, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 11.9.2005

Репутация: нет
Всего: нет

Можно ли в программе изменить свойства кнопки и как это сделать?
Например 1вариант:
Button1.caption := 'Продолжить';

2вариант:
Button1.caption := 'Выход';

и соответственно изменить их функции, чтобы в 1варианте можно было
запустить какую-нибудь процедуру или открыть новую форму,
а во втором варианте закрыть форму.

И второй вопрос.
Как в прцессе программы выйти из процедуры и запустить другую процедуру.

Albinos_x

Дата 23.9.2005, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата

1. через if т.е.

Код

...
procedure TForm1create...
...
Button1.caption := 'Продолжить';
...
procedure button1click...
...
if Button1.tag=0 then
   begin
    // выполняешь действия по продолжить
   end
  else
   begin
    //выполняешь действия по выход
   end;
Button1.caption := 'Выход';
Button1.tag:=Button1.tag+1;
end;
...

можно использовать логическую переменную.

или так:

Код

...
procedure TForm1create...
...
Button1.caption := 'Продолжить';
...
procedure button1click...
...
case Button1.tag of
  0:  begin
         // выполняешь действия по продолжить
       end;
  1:  begin
         //выполняешь действия по выход
       end;
     end;
Button1.caption := 'Выход';
Button1.tag:=Button1.tag+1;
end;
...

Цитата

Как в прцессе программы выйти из процедуры и запустить другую процедуру.

Код


// выход из процедуры
exit;

но другую так не запустишь, если конечно какойнибудь хук на эту функцию не поставил. Можно ещё в другой функции периодически проверять какое-нибудь условие останова.

Это сообщение отредактировал(а) Albinos_x - 23.9.2005, 23:52

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »