怎样发一个字符串到一个已知的窗口里?(100分)

  • 主题发起人 主题发起人 HeXiang Lee
  • 开始时间 开始时间
H

HeXiang Lee

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样发一个字符串到一个已知的窗口里
例Notepad 是下一个窗口,如何在我的程序里发一个字符串到NotePad的当前光标处!
试了好久都没有找到方法。
 
http://www.delphibbs.com/delphibbs/dispq.asp?LID=819474
慢慢往下看,有你想要的。
 
影子兄:
; ; 刚刚在你的一个贴子上把你的"新年快乐!"拷贝了下来。
我去你讲的贴子里看了,里面讲到"回调函数",以前在网上也看到过这个字眼,可是一直
都没有弄懂。能详细的介绍一下吗?分不够还可以加(我一天才积5分,专家分才40多分!
最好是不要让我再加了好吗?)!
 
运用消息呀
你的已知窗体
unit unit1
........
const WM_mytext=WM_user+100;
Type
Tform1=class(Tfrom)
....
end;
调用此方法发送文本
;sendmessage(form2.handle,WM_mytext,0.longint(mystr);
mystr为你要发送的文本,form2为你要发送的窗体;
form2单元代码:
unit unit2
interface
uses....,unit1;///引用unit1
type
Tform2=class(Tfrom2)
....
public
procedure wmmytext(var Msg:Tmessage);message WM_mytext;
end.
...
procedure Tform2.wmmytext(var Msge:Tmessage);
var s:string;
begin
s:=UpperCase(msg.Wpram)
end.
 
以下程序可以考虑用Timer或者HOTKEY触发
var
; GetHwnd : HWND;
; pos : TPoint;
begin
; GetCursorPos(pos);
; GetHwnd := WindowFromPoint(pos);
// ;SetWindowText(GetHwnd,pchar(edit1.text));
; SendMessage(GetHwnd,WM_SETTEXT,0,lparam(pchar(edit1.Text)));
end;

分数不要加了。看看以下帖子。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=330030
http://www.delphibbs.com/delphibbs/dispq.asp?lid=512713
http://www.delphibbs.com/delphibbs/dispq.asp?lid=409657
http://www.delphibbs.com/delphibbs/dispq.asp?lid=481283
 
謝謝大家的熱心幫助﹗
Notepad 作為我自已程序的下一個窗口﹐怎樣找到下一個窗口(NotePad),我用GetWindow不行。 .
 
我还以为是WINDOWS的NOTEPAD呢!
自己的还不好办吗?
是不是用MEMO?
MEMO.HANDLE就是句柄。
不过,无论怎样,上面的程序都可以实现。
 
试试wm_copydata
窗体间传递大量数据用这个
 
Notepad 不是自已的,是Windows的,
Notepad 作為我自已程序的下一個窗口﹐怎樣找到下一個窗口(NotePad),我用GetWindow不行。
老大们,帮帮手吧!这个问题困扰了我好久了。
 
我在上面所发的帖子的例子就可以做到。
我试过了,完全是可以的。
可以用Timer或者HOTKEY触发。
 
谢谢大家,实际上我的问题到今天都没有解决。如果有列子,还烦请发一给我。
LHxsz@21cn.com
 
近来实在太忙了。
而且可能买不到票回家,真惨。
这个例子很简单,邮件已发。
 
影子兄:
; ; 您好!
; ; 你的例子很好,找了几个月了。
; ; 还有一个问题就是没有解决,那就是没有办法找到当前窗口的下一个窗口。
; ; 比如说输入法吧,你点一下输入法窗口,按理来说被激活的应该是输入法窗口,可能它能自到的让激活输入法以前的活动窗口重新激活。该怎么才能实现呢?
; ; 我比你可能要幸运一点,买到了二十九的车票!
在此再次感谢你的帮助!
; ;祝:新年快乐,财运亨通!
;
;
; ; ; ; ; ; ; ; ; ; ; ;Holy
; ; ; ; ; ; ; ; ; ; ; ;
 
我已经买到了票,不过票价是我来的时候的四倍(车不同)。
你的问题我不会,发一新帖,让高手回答吧。

新年快乐!
 
后退
顶部