Как это сделать правильно. повесить два события на Button1

@Zekiil · Регистрация: 24.12.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер!
Мне нужно что бы при нажатие кнопки Caption менялся на 'Соединиться' а при втором нажатии сменить Caption на 'Отключится'
И соответственно что бы происходили какие либо действия, например подключение к FTP и отключения, не суть в этом, меня Caption интересует больше всего.

Не чего больше в голову не пришло. Но я знаю что это не правильно, есть какой-то способ но я не помню какой

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 
       if test = TRUE then
          BEGIN
            Button1.Caption := 'Соединиться';
            Label1.Caption  := '1';  // Бла Бла Бла подключился куданибуть
            test:=FALSE;
            exit;
          END;
 
       if test = FALSE then
          BEGIN
            Button1.Caption := 'Отключится';
            Label1.Caption := '2';  // Бла Бла Бла отключился от чего-то.
            test:=TRUE;
          END;
 
 
.....
test:=TRUE; в FormCreate
       
end;

Я весь Google перерыл, уже не знаю как формулировать запрос к поиску

Как повесить два события на Button1 ?

Добавлено через 1 минуту
Ой простите я веткой ошибся, перенесите пожалуйста в форму DELPHI для начинающих

@Doksim · 13.12.2013, 16:04

не туда зашел, тебе в раздел делфи.

Добавлено через 1 минуту
и вообще то все правильно)

@NIKOLAYY · 14.12.2013, 19:32

при нажатие кнопки Caption менялся на 'Соединиться' а при втором нажатии сменить Caption на 'Отключится'
И какие либо действия, подключение к FTP и отключения, не суть в этом, меня Caption интересует больше всего.

Вот такой еще вариант в кнопке в Caption пропиши Соединиться

Delphi

  if Button1.Caption = 'Соединиться' then
  begin
    Label1.Caption := 'Подсоединены к FTP';
    Button1.Caption := 'Отключится';
    //куча кода нужного при подключении
  end
  else
  begin
    Button1.Caption := 'Соединиться';
    Label1.Caption := 'Отключены от FTP';
    //еще куча кода нужного при отключении
  end;

Тут весь код именно к свойству Caption кнопки привязан, если так нужно.

@Zekiil · 15.12.2013, 12:17 **[ТС]**

Отлично! Работает так как мне нужно было.
А если для этого ключевые слова или ещё чего.

Я как-то встретил следующие.

Delphi

1	Timer1.Enabled := not Timer1.Enabled;

Человек написавший эту строку сказ, это для того, что бы включить или отключить таймер.

У меня возник вопрос, как использовать NOT Скажем для этого же таймера, но менять Caption скажем у Label
Label.Caption включен таймер, NOT Label.Caption отключен таймер,
не получается у меня сообразить

15.12.2013, 12:53

Delphi

const
  buf : array[Boolean] of String = ('отключен таймер', 'включен таймер');
begin
  Timer1.Enabled := not Timer1.Enabled;
  Label1.Caption := Buf[Timer1.Enabled];
end;

@NIKOLAYY · 15.12.2013, 16:40

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

Label.Caption включен таймер, NOT Label.Caption отключен таймер

Ты наверное хотел сделать типа:

Delphi

1
2

label1.Caption:='âêëþ÷åí' not label1.Caption:='îòêëþ÷åí'; //небудет так работать!
label1.Visible := not label1.Visible; //будет работать но это нето что тебе нужно

Со свойством not работают тока булевы типы, принимающие два положения True или False типа Enabled или Visible...

Поэтому делай код либо как сказал angstrom либо как выше. Ты его уже не упростиш.

@Doksim 57 / 57 / 10 Регистрация: 08.12.2013 Сообщений: 257
	13.12.2013, 16:04	2
	не туда зашел, тебе в раздел делфи. Добавлено через 1 минуту и вообще то все правильно) 1

	15.12.2013, 16:40