[求助]delphi 的控件-编程技术-看雪-安全社区|安全招聘|kanxue.com

最新回复 (1)
木桩雪币： 296 活跃值： (89) 能力值： ( LV15，RANK：340 ) 在线值：发帖 13 回帖 241 粉丝 4 关注私信	木桩 8 2 楼直接看Controls.pas里的源码： function TControl.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint; var Message: TMessage; begin Message.Msg := Msg; Message.WParam := WParam; Message.LParam := LParam; Message.Result := 0; if Self <> nil then WindowProc(Message); Result := Message.Result; end; procedure TControl.SetTextBuf(Buffer: PChar); begin Perform(WM_SETTEXT, 0, Longint(Buffer)); Perform(CM_TEXTCHANGED, 0, 0); end; function TControl.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer; begin Result := Perform(WM_GETTEXT, BufSize, Longint(Buffer)); end; 其实就是通过 WM_SETTEXT/WM_GETTEXT 设置和获取文字信息。另外，TControl.SetTextBuf() 没有ID 2009-6-7 12:38 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (1)

木桩

雪币： 296

活跃值： (89)

能力值：

( LV15，RANK：340 )

在线值：

发帖

回帖

241

粉丝

关注

私信

木桩 8: 2 楼

直接看Controls.pas里的源码：

function TControl.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
var
Message: TMessage;
begin
Message.Msg := Msg;
Message.WParam := WParam;
Message.LParam := LParam;
Message.Result := 0;
if Self <> nil then WindowProc(Message);
Result := Message.Result;
end;

procedure TControl.SetTextBuf(Buffer: PChar);
begin
Perform(WM_SETTEXT, 0, Longint(Buffer));
Perform(CM_TEXTCHANGED, 0, 0);
end;

function TControl.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;
begin
Result := Perform(WM_GETTEXT, BufSize, Longint(Buffer));
end;

其实就是通过 WM_SETTEXT/WM_GETTEXT 设置和获取文字信息。
另外，TControl.SetTextBuf() 没有ID

2009-6-7 12:38