Как поднять на верх динамически созданное ранее окно?

[John_chek]

Добрый день, уважаемые!
Динамически, в разных событиях, в разное время создаются несколько окон (2,3,5 не важно):

…
  FSendOne := TFSendOne.Create(application);
  FSendOne.Caption := '111';
  FSendOne.Show;
…
  FSendOne := TFSendOne.Create(application);
  FSendOne.Caption := '222';
  FSendOne.Show;
…

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

BringWindowToTop(FindWindow('TFSendOne','111'));

или

Windows.SetFocus(FindWindow('TFSendOne','111'));

Но окно получает только фокус и если в него передавать данные, например:

FSendOne.Edit1.Text := '555';

то опять таки они попадут в окно которое создано последним, а если нужно чтобы они попали в ранее созданное окно с таким же классом?. Help!!!

[Stilet]

Есть какерский выход:

FormStyle:=fsStayOnTop;
FormStyle:=fsNormal;

[John_chek]

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

Есть какерский выход:

FormStyle:=fsStayOnTop;
FormStyle:=fsNormal;

Не то что я имел ввиду.
Пишется локальная аська, так вот когда человек общается с 1-м собеседником все норм, а когда с2,3-мя сразу, то вся инфа льется в одно окно, которое открыто последним!

Окна динамические, класс у них один TFSendOne, только Caption разные.

поэтому я и спрашивал как выдергивать окно зная класс и капшн. Что-то типа FindWindow, но он возвращает только хендл, а как его потом наверх поднять?
Наверх имею ввиду не сделать поверх всех окон...

[Neeter]

Дык там и написано:

FormStyle:=fsStayOnTop; //Сначала делаем окно поверх всех
FormStyle:=fsNormal;       //И делаем его нормальным

Обе строки писать надо

[John_chek]

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

Дык там и написано:

Обе строки писать надо

А смысл в чем?? Прочти мой 2-й топ

[Stilet]

John_chek

А че это она в активное льется?
Пропиши к каждому окну свою "струю"

[John_chek]

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

А че это она в активное льется?
Пропиши к каждому окну свою "струю"

А по подробнее, код если можно?!

[Stilet]

John_chek

А для этого нужно знать как ты делал.
Для каждого чатлайнина отдельный поток, отдельное окно... И т.д.

[John_chek]

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

А для этого нужно знать как ты делал.
Для каждого чатлайнина отдельный поток, отдельное окно... И т.д.

Вот кусок код когда приходит сообщение:

  
...
HandleSendOne := Copy(a,pos('&#&#',a)+4,200);
  if FindWindow('TFSendOne',PChar(HandleSendOne)) <> 0 then
    begin
//    Windows.SetFocus(FindWindow('TFSendOne',PChar(HandleSendOne)));
//    BringWindowToTop(FindWindow('TFSendOne',PChar(HandleSendOne)));
    delete(a,pos('&#&#',a),200);
    FSendOne.richedit1.SelAttributes.Color := clRed;
    FSendOne.RichEdit1.lines.add(a);
    if isWindowVisible(FindWindow('TFSendOne',PChar(HandleSendOne))) = false then
      begin
      FSendOne.Show;
      end;
    end
  else
    begin
    FSendOne := TFSendOne.Create(application);
    SendIp := abinding.PeerIP;
    FSendOne.Caption := Copy(a,pos('&#&#',a)+4,200);
    delete(a,pos('&#&#',a),200);
    FSendOne.Show;
    FSendOne.richedit1.SelAttributes.Color := clRed;
    FSendOne.RichEdit1.lines.add(a);
    end;
...

когда месага приходит проверяю существет окно, если да тогда хочу в него сувать, если нет создаю новое, а тут косяк вылез, когда несколько окон открыто.....
HandleSendOne - сюда записываю, кто отправил, пишу это в капшн

[Stilet]

ну...
Опиши запись, где будут поля окно, источник.
Потом массив этих записей.
Смысл в том чтобы связать окно с источником (чатлайнером). Когда тебе приходит сообщение, определяй от кого, ищи в этом массиве и пердавай его связанному с источником окну.