如何将接收到的消息参数转换为字符串呢？

Question

var
  strtip:string;
begin
  strtip:='正在加载...';
  sendMessage(VH, SetTip_Message, Integer(self.Handle), Integer(PChar(strtip)));procedure TfrmProgressbar.SetTipMessage(var MyMsg:TMessage);
var
  MyVal:integer;
  strTip:string;
begin
  MyVal:=MyMsg.LParam;
如何将接收到的消息参数转换为字符串呢？
如何将MyVal转换成字符串？

Answer 1

   strtip:=  pchar( mymsg.LParam);

Answer 2

procedure TfrmProgressbar.SetTipMessage(var MyMsg:TMessage);
var
  MyVal:integer;
  strTip:string;
begin
  MyVal:=MyMsg.LParam;
  strTip:=pchar(MyVal);

Answer 3

不用PChar直接Integer(Value) ,接收端强制转换回来就可以了