procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean); var H : HWND; begin H := FindWindowEx(TTreeView(Sender).Handle, 0, PChar('Edit'), PChar(Node.Text)); if H > 0 then SendMessage(H, WM_SetText, 0, integer(PChar('YourTXT'))); end;
var AllowEdit: Boolean);
var H : HWND;
begin
H := FindWindowEx(TTreeView(Sender).Handle, 0, PChar('Edit'), PChar(Node.Text));
if H > 0 then SendMessage(H, WM_SetText, 0, integer(PChar('YourTXT')));
end;
谢谢两位的关注,就是不能直接给text赋值,而是要通过编辑框编辑,只是用代码给编辑框赋一个初始值。To lihuasoft(我业余,所说仅供参考) :
太感谢你了,完全是专业的,不是业余的。:)
你两句代码就写出了我心中的期望,我一天都没解决的问题你两句代码就解决了,再次感谢!