Динамически созданный tabSheet

[S@fer]

Добрый день. При двойном щелчке мыши в ListString Динамически создается TabSheet и на нем компоненты.
Допустим у меня создано несколько Табшитов, у каждого свое имя. Как сделать активным уже открытый таб шит зная его имя?
Пробую так но не получается

var t:TTabSheet;
    m:TMemo;

procedure createsheet;
var i:integer;
begin
with F_message do begin
if PageControl1.PageCount=0 then
  begin

    F_Client.t:=TTabSheet.Create(PageControl1);
    F_Client.t.PageControl:=PageControl1;
    F_Client.t.Name:='Tab'+F_Client.Cont_name;
    F_Client.t.Caption:=F_Client.Cont_Uin;
    
    F_Client.m:=TMemo.Create(F_message);
    F_Client.m.Parent:=F_Client.t;
    F_Client.m.Name:='Memo'+F_Client.Cont_name;
    F_Client.m.Align:=alClient;
    F_Client.m.Text:='';
    
    F_message.Show;
   
  end else
  begin
  for i:=0 to PageControl1.PageCount-1 do begin
    if PageControl1.Pages[i].Name='Tab'+F_Client.Cont_name then
      begin
      F_Client.a:=1;
          
      end else
      begin
      if F_Client.a<>1 then F_Client.a:=0;
      end;
   end;
   if F_Client.a=0 then
    begin
    F_Client.t:=TTabSheet.Create(PageControl1);
    F_Client.t.PageControl:=PageControl1;
    F_Client.t.Name:='Tab'+F_Client.Cont_name;
    F_Client.t.Caption:=F_Client.Cont_Uin;
    
    F_Client.m:=TMemo.Create(F_message);
    F_Client.m.Parent:=F_Client.t;
    F_Client.m.Name:='Memo'+F_Client.Cont_name;
    F_Client.m.Align:=alClient;
    F_Client.m.Text:='';
  
    F_message.Show;

    PageControl1.ActivePage:=F_Client.t;
    end;
   end;
end;

где Cont_name и Cont_UIN Имя и номер контакта окно которого нужно сделать активным.

[Ntlegend]

Как вариант могу предложить при создании табшита записывать его номер в его же таг, потом находим компонент по имени, считываем его таг и делаем эту вкладку активной..
Второй вариант: создать массив соответствий.. И потом быстро в массиве найти нужное имя и посмотреть какой вкладке оно соответствует..

[Stilet]

Как сделать активным уже открытый таб шит зная его имя?

Можно через:

FindComponent(const AName: string): TComponent;

[s.Creator]

Может просто слегка переместить

var t:TTabSheet;
    m:TMemo;

procedure createsheet;
var i:integer;
begin
with F_message do begin
if PageControl1.PageCount=0 then
  begin

    F_Client.t:=TTabSheet.Create(PageControl1);
    F_Client.t.PageControl:=PageControl1;
    F_Client.t.Name:='Tab'+F_Client.Cont_name;
    F_Client.t.Caption:=F_Client.Cont_Uin;
    
    F_Client.m:=TMemo.Create(F_message);
    F_Client.m.Parent:=F_Client.t;
    F_Client.m.Name:='Memo'+F_Client.Cont_name;
    F_Client.m.Align:=alClient;
    F_Client.m.Text:='';
    
    F_message.Show;

  end else
  begin
  F_Client.a:=0;
  for i:=0 to PageControl1.PageCount-1 do begin
    if PageControl1.Pages[i].Name='Tab'+F_Client.Cont_name then
      begin
      F_Client.a:=1;
      break;
      end;
   end;
   if F_Client.a=0 then
    begin
    F_Client.t:=TTabSheet.Create(PageControl1);
    F_Client.t.PageControl:=PageControl1;
    F_Client.t.Name:='Tab'+F_Client.Cont_name;
    F_Client.t.Caption:=F_Client.Cont_Uin;

    F_Client.m:=TMemo.Create(F_message);
    F_Client.m.Parent:=F_Client.t;
    F_Client.m.Name:='Memo'+F_Client.Cont_name;
    F_Client.m.Align:=alClient;
    F_Client.m.Text:='';

    F_message.Show;
    end;
   end;
   PageControl1.ActivePage:=F_Client.t;
end;

[S@fer]

Можно через:
FindComponent(const AName: string): TComponent;

Пробую так:

F_message.PageControl1.ActivePage:=(FindComponent('Tab'+F_Client.Cont_name) As TTabSheet);

Но активной становится не Табшит, а сам PageControl,т.е. все открытые вкладки остаются на заднем плане, а на передний выходит пустой PageControl

[S@fer]

Сообщение от s.Creator

Может просто слегка переместить

Таким способом, активной становиться последняя созданная вкладка.

[Ntlegend]

попробуй листинг первого поста заменить этим:

var t:TTabSheet;
    m:TMemo;

procedure createsheet;
var i:integer;
begin
i:=0;
with F_message do begin
  for i:=0 to PageControl1.ComponentCount-1 do begin
    if (PageControl1.Components[i] is TTabSheet)and
       (TTabSheet(PageControl1.Components[i]).Name='Tab'+F_Client.Cont_name) then
         begin
                   PageControl1.ActivePageIndex:=TTabSheet(PageControl1.Components[i]).PageIndex;
                    break;
          end
  end;
  if i>=PageControl1.ComponentCount then
    begin
         F_Client.t:=TTabSheet.Create(PageControl1);
         F_Client.t.PageControl:=PageControl1;
         F_Client.t.Name:='Tab'+F_Client.Cont_name;
         F_Client.t.Caption:=F_Client.Cont_Uin;

         F_Client.m:=TMemo.Create(F_message);
         F_Client.m.Parent:=F_Client.t;
         F_Client.m.Name:='Memo'+F_Client.Cont_name;
         F_Client.m.Align:=alClient;
         F_Client.m.Text:='';

         F_message.Show;

         PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
    end;
end;

одно из изменений добвь.. иначе будут ошибки когда нету ниодной вкладки..

[S@fer]

Ntlegend, Спасибо. Работает.