• From: Братск, Россия (Bratsk Russia)
  • Registered: 2017-08-16
  • Posts: 34

Topic: Какое событие в TableGrid при переходе на другую строку?

Добрый день!
Подскажите, пожалуйста, если кто знает, какое событие можно использовать при переходе в TableGrid на другую строку? То есть без разницы, нажали ли мышкой или переходим по записям с помощью клавиатуры, выше или ниже. Искал в справке - ничего близкого.
В Делфи вроде есть событие AfterScroll (нашёл по поиску в инете, http://www.cyberforum.ru/delphi-databas … 47383.html ).

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

Re: Какое событие в TableGrid при переходе на другую строку?

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


Такого события нет, но можно это реализовать так

procedure ChangeRowTableGrid1;
begin
    ShowMessage('changed');
end;

procedure Form1_TableGrid1_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if Form1.TableGrid1.SelectedRow <> Form1.TableGrid1.tag then ChangeRowTableGrid1;
    Form1.TableGrid1.tag := Form1.TableGrid1.SelectedRow;
end;

procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
    if Form1.TableGrid1.SelectedRow <> Form1.TableGrid1.tag then ChangeRowTableGrid1;
    Form1.TableGrid1.tag := Form1.TableGrid1.SelectedRow;
end;


begin
    Form1.TableGrid1.tag := -1;
end.
Dmitry.
  • From: Братск, Россия (Bratsk Russia)
  • Registered: 2017-08-16
  • Posts: 34

Re: Какое событие в TableGrid при переходе на другую строку?

Спасибо, Дмитрий!