Нажатие кнопки 2 раза

@Dasha18 · Регистрация: 20.04.2013

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

Добрый вечер! Помогите пожалуйста, имеется кнопка "Изменить", после того как на нажали она переименовывается в "Сохранить изменения". Как сделать чтоб когда нажимаем второй раз чтоб сохранить изменения выходило сообщение изменения сохранены!

Delphi

procedure TRForm.IzmenitClick(Sender: TObject);
var
 bs:integer;
begin
 if Izmenit.Caption='Изменить' then
 begin
  Vzros.Enabled:=True;
  Rebenok.Enabled:=True;
  Tamada.Enabled:=True;
  Obpomin.Enabled:=True;
  Vippomin.Enabled:=True;
 end;
  begin
    Izmenit.Caption:='Сохранить изменения';
   // bs:=MessageDlg('Сохранить изменения?',mtConfirmation,mbOKCancel,0);
 // if bs=mrOK then
    try
    DM.ADOConnection1.BeginTrans;
  with DM.StoredMERas do
  begin
   Parameters.ParamByName('@1chel').Value:=Vzros.Text;
   Parameters.ParamByName('@1reb').Value:=Rebenok.Text;
   Parameters.ParamByName('@1ved').Value:=Tamada.Text;
   Parameters.ParamByName('@ob').Value:=Obpomin.Text;
   Parameters.ParamByName('@vip').Value:=Vippomin.Text;
    end;
  DM.StoredMERas.ExecProc;
  DM.ADOConnection1.CommitTrans;
//  if Izmenit.OnClick='Сохранить изменения' then begin
// showmessage('Изменения сохранены!'); exit;  end;
   Except
       DM.ADOConnection1.RollbackTrans;
       ShowMessage('Невозможно выполнить. Повторите.');
  end;//try
end;
end;

@Narimanych · 29.06.2015, 00:20

Dasha18,

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

после того как на нажали она переименовывается в "Сохранить изменения".

Судя по коду, она не переименовывается...
попробуйте добавить после строчки 11
Izmenit.Caption:='Сохранить изменения';

Добавлено через 2 минуты

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

Судя по коду, она не переименовывается...

Sorry,
не прав....

Добавлено через 16 минут
Dasha18,
А если чуть поменять...

Строки 12 ; 17 ;19

Delphi

procedure TRForm.IzmenitClick(Sender: TObject);
var
 bs:integer;
begin
 if Izmenit.Caption='Изменить' then
 begin
  Vzros.Enabled:=True;
  Rebenok.Enabled:=True;
  Tamada.Enabled:=True;
  Obpomin.Enabled:=True;
  Vippomin.Enabled:=True;
  Izmenit.Caption:='Сохранить изменения';
 end;
        // bs:=MessageDlg('Сохранить изменения?',mtConfirmation,mbOKCancel,0);
 // if bs=mrOK then
 
if Izmenit.Caption='Сохранить изменения' then
begin
   Shwmessage('изменения сохранены!   ');
    try
    DM.ADOConnection1.BeginTrans;
  with DM.StoredMERas do
  begin
   Parameters.ParamByName('@1chel').Value:=Vzros.Text;
   Parameters.ParamByName('@1reb').Value:=Rebenok.Text;
   Parameters.ParamByName('@1ved').Value:=Tamada.Text;
   Parameters.ParamByName('@ob').Value:=Obpomin.Text;
   Parameters.ParamByName('@vip').Value:=Vippomin.Text;
    end;
  DM.StoredMERas.ExecProc;
  DM.ADOConnection1.CommitTrans;
//  if Izmenit.OnClick='Сохранить изменения' then begin
// showmessage('Изменения сохранены!'); exit;  end;
   Except
       DM.ADOConnection1.RollbackTrans;
       ShowMessage('Невозможно выполнить. Повторите.');
  end;//try
end;
end;

Попробуйте....

@Dasha18 · 29.06.2015, 11:14 **[ТС]**

не помогло, при первом нажатии пишет изменения сохранены

@Narimanych · 29.06.2015, 11:35

Dasha18,
После 12-ой строчки
Izmenit.Caption:='Сохранить изменения';

добавьте
Exit;

@Dasha18 · 29.06.2015, 12:17 **[ТС]**

Спасибо тебе большое добрый человечик!!!!!! Все заключалось в одном слове и заработало

@Narimanych · 29.06.2015, 12:19

Dasha18,
Пожалуйста....

@Dasha18 5 / 5 / 1 Регистрация: 20.04.2013 Сообщений: 95
	29.06.2015, 11:14 [ТС]	3
	не помогло, при первом нажатии пишет изменения сохранены 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	29.06.2015, 11:35	4
	Dasha18, После 12-ой строчки Izmenit.Caption:='Сохранить изменения'; добавьте Exit; 1

@Dasha18 5 / 5 / 1 Регистрация: 20.04.2013 Сообщений: 95
	29.06.2015, 12:17 [ТС]	5
	Спасибо тебе большое добрый человечик!!!!!! Все заключалось в одном слове и заработало 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	29.06.2015, 12:19	6
	Dasha18, Пожалуйста.... 0