Забрать текст из опредеённого Edit Tab (TabControl)

[Shouldercannon]

Есть динамический массив и TabControl. Пытаюсь реализовать работу с вкладками как в QIP. Возникла проблема с взятием текста из Edit определённой вкладки, зато со вставкой проблем нет.

procedure TFormPrivate.TabControl1Change(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Length(TD) - 1 do
  begin
    if TabControl1.TabIndex = TD[i].TabIndex then
    begin
      LName.Caption := TD[i].Name;
      LIP.Caption := TD[i].IP;
      TabControl1.TabIndex := i; // Перейдём на вкладку

      Edit1.Clear;
      Edit1.Text := TD[i].TempMessage; // Вставим текст
      Break;
    end;
  end;
end;

Делать привязку по индеку вкладки бесполезно, так как при удалении любой вкладки произойдёт сдвиг. Делать привязку к Caption тоже бесполезно, так как могут быть повторы. Если бы в TabControl1Change были параметры предыдущая вкладка и следующая вкладка, то было бы проще, но увы такого нет. Идеи кончились, а реализовать надо. Прошу помощи.

[Аватар]

Если динамический массив как тень вкладок, то удаляя вкладку с индексом n, удалить и соответствующий элемент массива. А уж в элементе массива, будь то record или класс держать соответствующий уникальный признак нет проблем. По этому признаку и определять индекс вкладки

[Shouldercannon]

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

[Человек_Борща]

но увы такого нет. Идеи кончились, а реализовать надо.

Наследуйте TTabControl и делайте свои навесы.

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

[Аватар]

OnChanging срабатывает до перехода на новую вкладку. В нем текст можно забрать

[Shouldercannon]

Сообщение от Аватар

OnChanging срабатывает до перехода на новую вкладку. В нем текст можно забрать

То, что надо. Подскажите, как вызвать OnChanging, если OnChange вызываю так

TabControl1.OnChange(Self);

Так понимаю, что нужно как-то передать параметр AllowChange.

[Аватар]

А зачем эти обработчики вызывать? Они работают при клике на табах. При программном изменении TabIndex они на автомате не работают, но вся информация и так известна. Что мешает? Перед изменением запомнил в массив что надо, после изменения выдернул из массива. Если уж вызывать, то OnChanging до изменения индекса, OnChange - после изменения с предусмотренными параметрами. Только не пойму нафига
var: MyBoolean: Boolean;
TabControl1.OnChanging(TabControl1, MyBoolean);
TabControl1.OnChange(TabControl1);