[Михалыч]

Как сделать так чтобы при клике на одну и туже кнопку при первом клике выполнялось одно действие, а при повторном другое.

[Redstason]

в программе объявить флаг какой-то. и с каждым вызовом OnClick изменять его значение

[Михалыч]

а с примером

[ApxaHGe1]

Код:

  i:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
case i of
  1:ShowMessage ('1 клик');
  2:ShowMessage ('2 клика');
  3:ShowMessage ('3 клика');
end;
end;

[Redstason]

Код:

var
 flag:integer;

procedure TFrmDataEnter.Button1Click(Sender: TObject);
begin
 if flag=1 then
  ...
 if flag=2 then
  ...
Inc(flag);
end;

[Михалыч]

что за процедура procedure TFrmDataEnter.Button1Click(Sender: TObject);

[Михалыч]

Вот что мне примерно нужно. Есть кнопка, 2 едита и 1 label. Кнопка имеет надпись Сложение, при нажатии на нее происходит сложение данных в едитах и вывод суммы в Label. Кнопка меняет надпись на Вычитание. Далее по аналогии.