Форум программистов [Powered by Invision Power Board]

Код


unit frm_Main;

...

var
  FormMain: TFormMain;

implementation

uses frm_2;

{$R *.dfm}

procedure TFormMain.Button1Click(Sender: TObject);
var
  i: Integer;
  Item: TListItem;
begin
  LVUsers.Clear;

  for i := 0 to 4 do
  begin
    Item := LVUsers.Items.Add;
    Item.Caption := '';
    Item.SubItems.Add(Format('Name: %d', [i])); // Name
    Item.SubItems.Add(Format('30%d', [i])); // Room
    Item.SubItems.Add(IntToStr(i)); // ID
    Item.SubItems.Add('0'); // Icon
    Item.ImageIndex := 0;
  end;
end;

procedure TFormMain.LVUsersDblClick(Sender: TObject);
begin
  if LVUsers.Selected = nil then Exit;
  Form2.ProcAddTab(LVUsers.Items[LVUsers.ItemIndex], 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 = class(TObject)
  public
    UserID: Integer;
    Nick: string;
    TempMessage: string;
  end;

  TTabDataList = class(TObjectList)
  private
    function GetTab(Index: Integer): TTabData;
  public
    function AddTab(UserID: Integer; Nick, TempMessage: string): TTabData;
    property Tabs[Index: Integer]: TTabData read GetTab; default;
  end;

type
  TForm2 = class(TForm)
...
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ProcAddTab(Usr: TListItem; ChangeTab, ShowForm: Boolean);
  end;

var
  Form2: TForm2;
  TabList: TTabDataList;
  tbInd: Integer;
  UserData: TTabData;

implementation

uses frm_Main;

{$R *.dfm}

function TTabDataList.AddTab(UserID: Integer; Nick, TempMessage: string): TTabData;
begin
  Result := TTabData.Create;
  Result.UserID := UserID;
  Result.Nick := Nick;
  Result.TempMessage := TempMessage;
  inherited Add(Result);
end;

function TTabDataList.GetTab(Index: Integer): TTabData;
begin
  Result := inherited Items[Index] as TTabData;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  TabList := TTabDataList.Create(True); // TabList сам уничтожтит элемент при удалении
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  FreeAndNil(TabList);
end;

procedure TForm2.ProcAddTab(Usr: TListItem; ChangeTab, ShowForm: Boolean);
var
  UsrData: TTabData;
  i: Integer;
begin
  UsrData := Usr.Data;

  if (UsrData = nil) then  // Нет такого пользователя
  begin
    // Создаем, добавляем в список TabList
    UsrData := TabList.AddTab(StrToInt(Usr.SubItems[2]), Usr.SubItems[0], '');
    // Связываем с элементом в LVUsers
    Usr.Data := UsrData;
  end;
  // Ищем пользователя на вкладках
  i := TabControl1.Tabs.IndexOfObject(UsrData);

  if (i < 0) then // Нет вкладки с таким пользователем, добавляем новую вкдадку - здесь дыра
  begin
    i := TabControl1.Tabs.Add(UsrData.Nick);
    // Связываем c конкретной вкладкой
    TabControl1.Tabs.Objects[i] := UsrData;
  end;

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

end.

Код


  // Ищем пользователя на вкладках
  i := TabControl1.Tabs.IndexOfObject(UsrData);

Код


  if (i < 0) then // Нет вкладки с таким пользователем, добавляем новую вкдадку - здесь дыра
  begin
    i := TabControl1.Tabs.Add(UsrData.Nick);
    // Связываем c конкретной вкладкой
    TabControl1.Tabs.Objects[i] := UsrData;
  end;

Код


  if (i < 0) then
    i := TabControl1.Tabs.AddObject(UsrData.Nick, UsrData);

Цитата(Poseidon @ 10.10.2014, 16:45

)

смотрел?

Цитата(Poseidon @ 10.10.2014, 21:15)

Не вариант, т.к. имя может быть одинаковое у разных записей. Тут больше интересно почему же все-таки не ищет IndexOfObject. Я вот состряпал на коленке теститик, все срабатывает. Не понятно почему у Shouldercannon не работает.

Цитата(Poseidon @ 11.10.2014, 19:09)

Если под отладчиком в ProcAddTab вызвать Pointer(UsrData) и посмотреть что там будет для каждой записи при первом заполнении LVUsers и потом при перезаполнении LVUsers.

Короче, IndexOfObject не срабатывает потому, что мы сравниваем разные экземпляры класса TTabData. И хоть они заполненны одинаковыми данными, это все-равно разные экземпляры.

Я бы переделал TTabData в record и, соответственно, немного переделается логика работы программы. Но тогда не будет таких подводных камней и UsrData с одинаковыми данными будут считаться одинаковыми.

Цитата(Poseidon @ 11.10.2014, 19:09)

Я бы переделал TTabData в record и, соответственно, немного переделается логика работы программы. Но тогда не будет таких подводных камней и UsrData с одинаковыми данными будут считаться одинаковыми.

Код


unit frm_2;

interface

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

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

Цитата(Shouldercannon @ 12.10.2014, 11:16

)

public

Цитата(Shouldercannon @ 12.10.2014, 10:16

)

Можно попросить помочь с этим, данный код был написан не лично мной и при внесении изменений всё полетит в тартарары.

Код


tbInd := TabControl1.TabIndex;