delphi如何通過sendMessage將Form2中的onMouseMove傳遞到Form1的Caption
uj5u.com熱心網友回復：
不知所云...uj5u.com熱心網友回復：
就是創建了一個application，然后里面有Form1和Form2兩個表單，如何通過sendmessage方法將Form2中的值傳遞到Form1中，初學不太會用。
uj5u.com熱心網友回復：
在form1中加入uses form2，就可以呼叫form2的東西了uj5u.com熱心網友回復：
一、Form11、
uses uForm2;
2、事件中
begin
Form2.Caption:='ABCDEFG';
end;
uj5u.com熱心網友回復：
執行緒之間傳遞可以考慮使用procedure SendString(strMSG: string;hTargetWin:HWND);
var
Data: tagCOPYDATASTRUCT;
pBuf: PChar;
begin
GetMem(pBuf, Length(strMSG) + 1);
try
ZeroMemory(pBuf, Length(strMSG) + 1);
StrPCopy(pBuf, strMSG);
Data.cbData:= Length(strMSG)*2+2;
Data.dwData:= Length(strMSG)*2+2;
GetMem(Data.lpData,Data.dwData);
Data.lpData:= pBuf;
sendMessage(hTargetWin, WM_COPYDATA, 0, Integer(@Data));
finally
FreeMem(pBuf);
end;
end;
發送
procedure TFrmMain.WM_CopyData(var MSG: TMessage);
var
Data: ^tagCOPYDATASTRUCT;
strMSG: string;
n, j: Integer;
group: Tlistgroup;
listitem: Tlistitem;
begin
Data := Pointer(Msg.lParam);
strMSG := StrPas(PChar(Data.lpData));
end;
接收
大概是這個意思 我直接截取的部分程式，用于把一個字串從一個執行緒到另外一個執行緒，僅供參考
uj5u.com熱心網友回復：
樓主不是執行緒，可以直接加將單元加入后，直接賦值。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/64651.html
標籤：語言基礎/算法/系統設計
下一篇：Delphi匯出DBF