我想用通过消息把一个字符串传递到另外一个窗口,该怎么做?
解决方案 »
- 求:一条SQL语句搞定盘点库存!!!!!!
- 关于三层结构应用服务器TDataSetProvider的互斥问题
- 请问,下面的问题如何实现?--在线
- 两台打印机(一个CANON喷墨,一个EPSON针打),一次只能连接一台打印机,如何用程序确定当前所连接的打印机?
- 怎么用xml实现本地查找网络的功能?
- ★★★★关于dbedit的使用除了问题?
- 这是我写的一个数据录入的程序的一段总觉的不好,请各位大侠指点一下
- 用Delphi自带的TeamSource来控制团体开发,不错啊!应应该比较易上手吧。但谁有它的cdkey呢?
- 有是一个十分烦人而且非的解决的问题...
- 求算法
- 关于widenpath的问题,高人进~~~~
- 菜鸟问题-----关于字幕叠加的问题
http://expert.csdn.net/Expert/topic/2278/2278663.xml?temp=.315777
function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall;
var
buffer: array[0..255] of Char;
begin
Result := True;
GetClassName(hwnd,buffer,256);
if StrPas(Buffer)='Edit' then
begin
PInteger(lparam)^ := hwnd;
Result:=False;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
hwnd: Integer;
buffer: Array[0..1023] of Char;
begin
hwnd := FindWindow('NotePad',nil);
if hwnd<>0 then
begin
EnumChildWindows(hwnd,@EnumChildWindowsProc,Integer(@hwnd));
StrPCopy(buffer,'Hello, world!');
SendMessage(hwnd,WM_SETTEXT,0,Integer(@buffer[0]));
end;
end;
const
MM_TEXT = WM_USER + 101;
private
procedure mmText(var msg: TMessage); message MM_TEXT;procedure TForm2.mmText(var msg: TMessage);
var p: pointer;
begin
p := pointer(msg.LParam);
Edit1.Text := string(p^);
end;
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
ff : TForm2;
begin
ff := TForm2.Create(nil);
ff.Show;
s := '123456';
SendMessage(ff.Handle,MM_TEXT,0,Integer(@s));end;