[ALexandr555]

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

Код:

1 2 3 4 5 6

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 мемо,
для пирмера вот так

Код:

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

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

Код:

1 2 3 4 5 6 7 8 9 10 11

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 и т.д.

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

Код:

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

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

Код:

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

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

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

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

[ALexandr555]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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 тогда надо так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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. Там можно и шрифтом/цветом выделить и эмоции картинками отображать.