请问高手！！！请教！编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/23 23:26:52
请问如何用JBuider9实现类似在QQ发信息时可以自由的改变发送文字的字体大小、颜色等~~~谢谢！！

unit ServerUnit;

interface

uses
Windows, Messages, SysUtils, Classes, Forms,ScktComp,Registry;

type
TFrmServer = class(TForm)
ServerSocket1: TServerSocket;
procedure FormCreate(Sender: TObject);
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure FormShow(Sender: TObject);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
private
{ Private declarations }
procedure ClearRegistry;
public
{ Public declarations }
end;

var
FrmServer: TFrmServer;
implementation

{$R *.dfm}//取得本机IP

procedure TFrmServer.FormCreate(Sender: TObject);
var
roc:TRegistry;
Fil