задача состоит в следующем... чет я уже не знаю как сделать...
MSGT, сообшение
SUIN, имя номера типа аси. точнее это и есть закладки для аси...
FNick имя
нужно проверить пользователя в списке список в listview каптион содержит номер а его суб итем имя...
проверяем сперва если он в списке если он есть проверяе нет ли его на закладках pagecontro а по названию закладок.. формат такой для списков listview "имя (2222996)" притом если она уже создана в закладках не создаем ее заново а переходем на нее и добавляем текс в контрол htmllite ну можно и мемо. все закладки создаются динамически .. есть и такой если в свиске не сушествует похожей записи. то когда приходит сообшение от не известного контакта.. то формат такой "(2222968)" . проверяем с помощью поиска по ззакладкам по свойству названия (Caption) если он есть то переходим на него и делаем его активным добавляем текст в мемо на нужной закладки..
если не создан то создаем закладку с мемо и добавляем туда.
Если закладки созданы с такимже именем надо сделать чтоб они не созывались. вроде кода должно не много быть...Заранее спасибо
вот что до этого накатал. но не правильно. приблизительно понять можно что я хочу..
| Код |
var
i,z,v: Integer;
MSGT,SUIN,FNick:string;
ListItem: TListItem;
WB: THtmlviewer;
begin
MSGT:=sendmsg.Text;
SUIN:=edit1.Text;
if ListView2.Items.Count > 0 then
for i := 0 to ListView2.Items.Count - 1 do
if ListView2.Items.Item[i].Caption = SUIN then
begin
ListItem := ListView2.Items.Item[i];
FNick := ListView2.Items.Item[i].SubItems[LV_INDEX_NICK];
end;
if pagecontrol1.PageCount > 0 then
for i := 0 to PageControl1.PageCount - 1 do begin
if pagecontrol1.Pages[i].Caption=Fnick+' ('+SUIN+')' then begin
PageControl1.ActivePageIndex:=i;
with PageControl1 do
if ActivePage.ControlCount > 0 then
if ActivePage.Controls[0] is THtmlviewer then begin
WB := THtmlviewer(ActivePage.Controls[0]);
WB.LoadTextFromString(MSGT);//PChar(MSGT), Length(MSGT), '');
WB.VScrollBarPosition:=MaxInt;
end;
end;
end;
if pagecontrol1.PageCount > 0 then
for v := 0 to PageControl1.PageCount - 1 do begin
if pagecontrol1.Pages[v].Caption='('+SUIN+')' then begin
PageControl1.ActivePageIndex:=v;
with PageControl1 do
if ActivePage.ControlCount > 0 then
if ActivePage.Controls[0] is THtmlviewer then begin
WB := THtmlviewer(ActivePage.Controls[0]);
WB.LoadTextFromString(MSGT);//PChar(MSGT), Length(MSGT), '');
WB.VScrollBarPosition:=MaxInt;
end;
end;
end;
if pagecontrol1.PageCount > 0 then
for z := 0 to PageControl1.PageCount - 1 do begin
if pagecontrol1.Pages[z].Caption <> '('+suin+')' then exit;
CreateTAb('',suin);
WB := THtmlviewer(pagecontrol1.ActivePage.Controls[0]);
WB.LoadTextFromString(MSGT);//PChar(MSGT), Length(MSGT), '');
WB.VScrollBarPosition:=MaxInt;
end;
|
это как создаются закладки
| Код |
function tform1.CreateTab(uNick, sCaption: string): TTabSheet;
var
ts: TTabSheet;
HT: Thtmlviewer;
begin
SetCapture(ListView2.Handle);
ts := TTabSheet.Create(PageControl1);
Result := ts;
try
ts.PageControl := PageControl1;
ts.Parent := PageControl1;
ts.Caption := Format('%s (%s)', [unick,sCaption]);
ts.PageIndex := PageControl1.ActivePageIndex + 1;
HT := Thtmlviewer.Create(ts);
TControl(HT).Parent := ts;
HT.Align := alClient;
HT.Visible := True;
PageControl1.ActivePage := ts;
except
ts.Free;
end;
end;
|
у кого нет HtmlLite или HtmlViewer то мемо...  пример ...
|
