同一个窗口怎么多次打开
打开的各个窗口互不干扰

就像QQ的聊天窗口一样,可以同时跟多人聊天哪样.

[解决办法]
假设有TForm2类, 在Unit2中定义.

uses Unit2;

procedure TForm1.ShowForm2(const Friend: string);
var
P : TForm2;
begin
P := TForm2(FindComponent(Friend));
if P <> nil then FreeAndNil(P);
with TForm2.Create(self) do
begin
Name := Friend;
Caption := Format( '与 %s 聊天中 ',[Friend]);
Show;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowForm2( 'LihuaSoft ');
ShowForm2( 'CPC ');//不能用汉字. 需另外解决. 与本问题无关
end;