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轉換成字串？
uj5u.com熱心網友回復：
strtip:= pchar( mymsg.LParam);
uj5u.com熱心網友回復：
同一行程應該可用此方法。uj5u.com熱心網友回復：
procedure TfrmProgressbar.SetTipMessage(var MyMsg:TMessage);
var
MyVal:integer;
strTip:string;
begin
MyVal:=MyMsg.LParam;
strTip:=pchar(MyVal);
uj5u.com熱心網友回復：
都接收到了，剩下的只是個型別轉換了吧
uj5u.com熱心網友回復：
不用PChar直接Integer(Value) ,接收端強制轉換回來就可以了uj5u.com熱心網友回復：
+1
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/101755.html
標籤：語言基礎/算法/系統設計