[ALexandr555]

Как проверить имеется ли у нас вкладка в PageControl1 с названием "х"
и если не имеется то мы создаем вкладку с таким названием

Код:

var
  ts: TTabSheet;
begin
"тут проверка"
ts: = TTabSheet.Create(PageControl1);
ts.Caption: = "х";
end

вот вобщем собственно что написать для проверки

[ALexandr555]

очень нужно

[Страдалецъ]

Код:

 for i := 0 to PageControl1.PageCount - 1
 do if PageControl1.Pages[i].Caption = 'x' then ShowMessage('Нашли!');

[ALexandr555]

for i := 0 to PageControl1.PageCount - 1
я не пойму для чего это

[v1s2222]

Сообщение от ALexandr555

for i := 0 to PageControl1.PageCount - 1
я не пойму для чего это

Цикл (пробегает от 1ой панели и до конца всех панелей).
Если его убрать, то будет осуществляться проверка только 1й панели...

ЗЫ "панели" - вкладки в PageControl

[ALexandr555]

Код:

procedure TfrmMain.ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
var
i: integer;
begin
   AddEvent('От ' + GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') принято сообщение: [' + Msg + ']');
for i := 0 to PageControl1.PageCount - 1
do if PageControl1.Pages[i].Caption = GetNickFor(StrToInt(UIN)) then
  ShowMessage('Нашли!')
else
   TTabSheet.Create(ICQpeg);
   ICQts := TTabSheet.Create(ICQpeg);
   ICQts.PageControl := ICQpeg;
   ICQts.Parent := ICQpeg;
   ICQts.Caption := GetNickFor(StrToInt(UIN));
   ICQts.PageIndex := 1;
end;

не выходит он каждый раз создает новую вкладку