1 Topic by sataline (edited by sataline 2015-03-14 08:09:58)

  • Registered: 2015-03-10
  • Posts: 19

Topic: По двойному клику по полю вызывает поочередно несколько форм

Доброго времени суток!

Допустим есть Form1, на котором лежит TableGrid1, Button1, Button2. Обе кнопки показывают запись, вызывая одну и ту же Form2, но с разными свойствами. По клику на Button1 - можно только посмотреть, по клику на Button2 - редактировать.

По двойному клику на поле таблицы, дважды открываетcя Form2: сначала со свойствами Button1, потом - Button2.

Как сделать так, чтобы по двойному клику открывалось действие по Button2? Потому что если OnCellDoubleClick "повесить" Form1.Button2.Click, тогда Form2 откроется уже трижды: со свойствами Button2 - Button1 - Button2.

Подскажите, пожалуйста, что я делаю не так? Заранее спасибо!!!

PS. Пример в приложении.

Post's attachments

Attachment icon Test.rar 606.06 kb, 465 downloads since 2015-03-14 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: По двойному клику по полю вызывает поочередно несколько форм

Приветствую,


сделал, скачайте пожалуйста проект:

Post's attachments

Attachment icon Test_fixed.zip 3.71 kb, 446 downloads since 2015-03-16 

Dmitry.
  • Registered: 2015-03-10
  • Posts: 19

Re: По двойному клику по полю вызывает поочередно несколько форм

Спасибо большое!

4 Reply by kunar80 (edited by kunar80 2015-05-05 12:01:38)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: По двойному клику по полю вызывает поочередно несколько форм

Подскажите пожалуйста, как в приведенной ниже процедуре вместо i (номер строки) записать IntToStr(FormMyDoc.TableGrid1.SelectedRow) (номер выбранной строки)?

procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
        if (Form1.TableGrid1.Cells[2,i]='') then Form1.Button1.Enabled := False
        else Form1.Button2.Enabled := False;
end;
Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: По двойному клику по полю вызывает поочередно несколько форм

procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
        if Form1.TableGrid1.Cells[2,ARow]='' then Form1.Button1.Enabled := False
        else Form1.Button2.Enabled := False;
end;
Dmitry.
  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: По двойному клику по полю вызывает поочередно несколько форм

Спасибо!

Не боги горшки лепят!