千
千中元
Unregistered / Unconfirmed
GUEST, unregistred user!
1）请把P167页那个消息的例子发到sheepishest@china.com
注意请把中文注释也加上（按照书上的）
2）下面的代码：
private
procedure WMPaint (var Msg:TWMPaint)
message WM_PAINT;
end;
实现部分：
procedure TForm1.WMPaint(var MSg:TWMPaint);
begin
MessageBeep(0);
inherited;
end;
问题1：在实现部分， var Msg:TWMPaint 中，TWMPaint是在哪里得到的？
好象书上说是因为最好按照message后面的WM_PAINT来。。。但这里怎么多了个T?
问题2：不要inherited为什么不行？
呵呵，工资除了吃饭住房，渣都没的剩，只能到书店站着看书，抄写两句感觉跟做贼似的。
注意请把中文注释也加上（按照书上的）
2）下面的代码：
private
procedure WMPaint (var Msg:TWMPaint)
message WM_PAINT;
end;
实现部分：
procedure TForm1.WMPaint(var MSg:TWMPaint);
begin
MessageBeep(0);
inherited;
end;
问题1：在实现部分， var Msg:TWMPaint 中，TWMPaint是在哪里得到的？
好象书上说是因为最好按照message后面的WM_PAINT来。。。但这里怎么多了个T?
问题2：不要inherited为什么不行？
呵呵，工资除了吃饭住房，渣都没的剩，只能到书店站着看书，抄写两句感觉跟做贼似的。
Pos:TSmallPoint;