[ALexandr555]

мы ищем есть ли вкладка с Hint = UIN
и как нам сделать если мы нашли то в мемо находящийся в этой вкладке добавляем (GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg)
может так?

Код:

for i := 0 to ICQpeg.PageCount - 1
do
if ICQpeg.Pages[i].Hint = UIN then begin
  TMemo(ICQpeg.Page.hint = UIN)Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg);
  Exit;
  end;

[ALexandr555]

чтото мне подсказывает что такое равно не прокатит

[lmikle]

угу, не прокатит.
подробно, где находится то Memo, куда тебе надо добавит информацию.

[ALexandr555]

у меня есть несколько вкладок в кажой 1 мемо,
для пирмера вот так

Код:

TMemo(ICQpeg.ActivePage.Controls[0]).Lines.Add

находим мемо в активной вкладке и добавляем в него, а мне нужно если найдена вкладка с Hint = UIN то мы добавляем текст в мемо который находится во вкладке в которой Hint = UIN

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

Видими вам нужно это:

Код:

Var i: Integer;
    Control: TControl;
begin
 for i := 0 to Form8.ComponentCount - 1
 do if Assigned(TControl(Form8.Components[i]).Parent)
    then begin
         Control := TControl(Form8.Components[i]);
         if (Control.Parent.Name = 'TabSheet3') and (Control.ClassType = TMemo)
         then begin
              TMemo(Control).Text := 'Привет от TabSheet3';
              Break;
              end;
    end;
end;

[ALexandr555]

не то, тут с Form, ClassType и т.д.

[ALexandr555]

Код:

Var i: Integer;
begin
for i := 0 to ICQpeg.PageCount - 1
do
if ICQpeg.Pages[i].Hint = UIN then begin
 Control := ICQpeg.Pages[i].
if (Control.Parent.hint = UIN)
         then begin
              TMemo(Control).Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg);
             Break;
              end;

эмм так имеете ввиду?

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

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

не то, тут с Form, ClassType и т.д.

Ну соображалку то включите. Замените проверяемое свойство и всех делов:
Было:

Код:

if (Control.Parent.Name = 'TabSheet3') and (Control.ClassType = TMemo)

А для проверки хинта так:

Код:

if (Control.Parent.Hint = UIN) and (Control.ClassType = TMemo)

И потом как понимать это?

не то, тут с Form, ClassType и т.д.

У вас, что PageControl в воздухе висит? Он у вас расположен на форме, а вкладки хоть и имеют родителя TPageControl на этой-же форме располагаются.

[ALexandr555]

Код:

Var
 i: Integer;
 Control: TControl;

begin
for i := 0 to ICQpeg.PageCount - 1
do
if ICQpeg.Pages[i].Hint = UIN then begin
 Control := ICQpeg.Pages[i].
if Control.Parent.Hint = UIN) and (Control.ClassType = TMemo)         then begin
              TMemo(Control).Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg);
             Break;
              end;

ну а так будет работать?

[ALexandr555]

Код:

procedure TfrmMain.ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
var
i: integer;
Control: TTabSheet;
begin
for i := 0 to ICQpeg.PageCount - 1
do
if ICQpeg.Pages[i].Hint = UIN then begin
Control := TTabSheet(ICQpeg.Pages[i]);
if (Control.Parent.Hint = UIN) and (Control.ClassType = TMemo)      then begin
              TMemo(Control).Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg);
             Break;
              end

вот не работает не добавляет

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

Ну если вы хотите именно через TTabSheet тогда надо так:

Код:

procedure TForm8.FormCreate(Sender: TObject);
Var i,j: Integer;
    Control: TControl;
begin
 for i := 0 to PageControl1.PageCount - 1
 do begin
    if PageControl1.Pages[i].Hint = UIN
    then begin
         for j := 0 to TTabSheet(PageControl1.Pages[i]).ControlCount - 1
         do begin
            Control := TTabSheet(PageControl1.Pages[i]).Controls[j];
            if Control.ClassType = TMemo
            then begin
                 TMemo(Control).Lines.Add(GetNickFor(StrToInt(UIN)) + ' (' + UIN + ') :'+ Msg);
                 Break;
                 end;
            end;
         Break;
         end;
    end;
end;

PS: Вы зря для сообщений TMemo взяли, более перспективный компонент TRichEdit. Там можно и шрифтом/цветом выделить и эмоции картинками отображать.