Получить данные из объекта TabControl

[Shouldercannon]

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

unit frm_1;

...

var
  Form1: TForm1;

implementation

uses frm_2;

{$R *.dfm}

procedure TForm1.LVUsersDblClick(Sender: TObject);
var
  UserData: TTabData;
begin
  if LVUsers.Selected = nil then Exit;

  UserData.Nick := LVUsers.Items[LVUsers.ItemIndex].SubItems[0];
  UserData.UserID := StrToIntDef(LVUsers.Items[LVUsers.ItemIndex].SubItems[2], -1);

  Form2.ProcAddTab(UserData, True, True);
end;

end.

unit frm_2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, ToolWin, ExtCtrls, Contnrs;

type
  TTabData = record
    UserID: Integer;
    Nick: string;
    TempMessage: string;
  end;

...
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ProcAddTab(UserData: TTabData; ChangeTab, ShowForm: Boolean);
  end;

var
  Form2: TForm2;
  UserData: TTabData;

implementation

uses frm_1;

{$R *.dfm}

procedure TForm2.ProcAddTab(UserData: TTabData; ChangeTab, ShowForm: Boolean);
var
  i: Integer;
begin
  if UserData.UserID = -1 then Exit;
  // Ищем пользователя на вкладках
  i := TabControl1.Tabs.IndexOfObject(TObject(UserData.UserID));

  if i = -1 then // Нет такого пользователя
  i := TabControl1.Tabs.AddObject(UserData.Nick, TObject(UserData.UserID));

  if ChangeTab then TabControl1.TabIndex := i; // Сделаем вкладку активной
  // Покажем форму если разрешено
  if ShowForm then ShowAs;
end;

procedure TForm2.TabControl1Change(Sender: TObject); // Событие после перехода на вкладку
var
  tbInd: Integer;
begin
  // Получаем пользователя на текущей вкладке
  tbInd := TabControl1.TabIndex;
  // Заполняем новыми данными
  LNick.Caption := ???;
  LID.Caption := IntToStr(???);
  MMessage.Text := ???;
end;

end.

Подскажите, пожалуйста, как в событии TabControl1Change из объекта TabControl1 (туда мы добавляем UserID, Name, Message (TabControl1.Tabs.AddObject)) вывести данные для выбранной вкладки.

[evg_m]

i := TabControl1.Tabs.AddObject(UserData .Nick, TObject(UserData.UserID));

tbInd := TabControl1.TabIndex;
userid:=integer(TabControl1.Tabs.Objects(tbind));

[Аватар]

Ну коль записал UserID в Objects, то и выдерни его от туда:

Integer(TabControl1.Tabs.Objects[TabControl1.TabIndex])

А дальше ищи по нем данные в LVUsers

[Shouldercannon]

ListView трогать не надо. Берём данные только из самого объекта TabCotrol (Ник, ID (уже есть), что-то ещё (не знаю, допустим ли третий параметр или более)).

i := TabControl1.Tabs.AddObject(UserData.Nick, TObject(UserData.UserID)); // Создаём вкладку с привязанной к ней UserID

Получается, что Nick не храниться в объекте TabControl и его нужно брать из Caption вкладки?
Запутался в коде.

UserData: TTabData;

Это всего лишь контейнер, который постоянно перезаписывается при кликах по ListView и держать в себе весь список данных не может, так как не массив. Верно?

[Аватар]

Nick из Caption и UserID есть. Нет TempMessage. А нужен? Ни где и не передается

[Shouldercannon]

TempMessage нужен обязательно
Код из старой версии проекта

procedure TForm2.TabControl1Change(Sender: TObject); // Событие после перехода на вкладку
begin
  // Получаем пользователя на текущей вкладке
  tbInd := TabControl1.TabIndex;
  // Заполняем новыми данными
  LNick.Caption := TTabData(TabControl1.Tabs.Objects[tbInd]).Nick;
  LID.Caption := IntToStr(TTabData(TabControl1.Tabs.Objects[tbInd]).UserID);
  MMessage.Text := TTabData(TabControl1.Tabs.Objects[tbInd]).TempMessage;
  // Загрузим историю переписки приватного чата
  LoadHistory(LID.Caption);
end;

procedure TForm2.TabControl1Changing(Sender: TObject;
  var AllowChange: Boolean); // Событие до перехода на вкладку
begin
  // Получаем пользователя на текущей вкладке
  tbInd := TabControl1.TabIndex;
  // Запишем данные пользователя. Работаем с полями пользоваьтельской записи напрямую
  if MMessage.Text <> '' then TTabData(TabControl1.Tabs.Objects[tbInd]).TempMessage := MMessage.Text; // Нечего пустоту записывать
end;

[Аватар]

Значит нужно где-то держать. Или массив, или TList, или TObjectList, например с указателями на записи TTabData. И в Objects записывать не UserID, а индекс указателя. И позаботиться о корректной чистке, что бы утечек не было

[Shouldercannon]

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

Значит нужно где-то держать. Или массив, или TList, или TObjectList, например с указателями на записи TTabData. И в Objects записывать не UserID, а индекс указателя. И позаботиться о корректной чистке, что бы утечек не было

Уже пробовал подобное здесь, но запнулся на моменте со сравнением объектов, при каждом обновлении ListView указатель каждый раз новый и появляются дубликаты вкладок.

[Аватар]

Примерно так не пробовал?

procedure TForm1.LVUsersDblClick(Sender: TObject);
begin
  if LVUsers.Selected = nil then Exit;
  Form2.ProcAddTab(LVUsers.Selected, True, True);
end;

procedure TForm2.ProcAddTab(UserData: TListItem; ChangeTab, ShowForm: Boolean);
var i: Integer;
begin
  i := TabControl1.Tabs.IndexOfObject(UserData);
  if i = -1 then i := TabControl1.Tabs.AddObject(UserData.SubItems[0],UserData);
end;

procedure TForm2.TabControl1Change(Sender: TObject);
var UserData: TListItem;
begin
  UserData:=TListItem(TabControl1.Tabs.Objects[TabControl1.TabIndex]);
  LNick.Caption := UserData.SubItems[0];
  LID.Caption := UserData.SubItems[2];
  MMessage.Text := UserData.SubItems[3];
end;

И при обновлении ListView не рушить итемы

[Shouldercannon]

К сожалению не вариант. В ListView только ID, Nick, ничего лишнего там не должно быть.
Может UserData: TTabData; превратить в UserData: array of TTabData; - это и будет наш массив с данными пользователей?
Честно, уже весь мозг вынес, пытаясь реализовать работу с вкладками TabControl как в ICQ или подобным им программам. Варианты есть, но у каждого серьёзные недостатки.