有对女人感兴趣的吗？这里有很多信息的(100分)

各位见谅了，我这个问题提出很长时间了，没人回答，我急只好出此下策
问题如下：
type
TPageClass=class(TPersistent)
private
FTop,FLeft,FRight,FBottom:Integer;
published
property Top:Integer Read FTop write FTop;
property Left:Integer Read FLeft write FLeft;
property Right:Integer Read FRight write FRight;
property Bottom:Integer Read FBottom write FBottom;
end;
TPrintPanel = class(TCustomPanel)
private
{ Private declarations }
Fpage:TPageClass;
procedure SetBound(const Value:TPageClass);
protected
{ Protected declarations }
procedure paint;override;
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
published
{ Published declarations }
property Canvas;
property Page:TPageClass read Fpage write SetBound;
end;
TEhPrint=class(TPrintPanel)
private
public
published
property Page;
end;

procedure Register;

implementation
procedure Register;
begin
RegisterComponents('dyonghua', [TEhPrint]);
end;

{ TPrintPanel }


constructor TPrintPanel.Create(AOwner: TComponent);
begin
inherited create(AOwner);
Width:=200;
Height:=300;
Fpage:=TPageClass.Create;
Top:=1;
Left:=1;
ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents,
csOpaque, csDoubleClicks, csReplicatable];
Alignment := taCenter;
BevelOuter := bvNone;
BorderStyle := bsNone;
Color := clWhite;
FullRepaint := True;
UseDockManager := True;
end;

destructor TPrintPanel.Destroy;
begin
Fpage.Free;
inherited;
end;

procedure TPrintPanel.paint;
begin
inherited paint;
Canvas.Pen.Color:=clRed;
Canvas.Pen.Style:=psDot;
Canvas.Rectangle(Fpage.FLeft,Fpage.FTop,Width-Fpage.FRight,Height-Fpage.FBottom);
end;
{ TPageClass }

procedure TPrintPanel.SetBound(const Value: TPageClass);
begin
end;

{ TPageClass }

end.
要求在更改TPage的属性时TPrintPanel发生Paint。

哎，太让我失望了

骗人的呀，：（

TPageClass里面
Top的write 不要直接读FTop，改成通过函数 SetTop
left、right、bottom也一样这样改
TPageClass要接收创建他的TPrintPanel 对象
SetTop、SetLeft、……里面执行 TPrintPanel对象.Invalidate

我对女人没什么大兴趣

你行。

各位帮忙向上踢一踢啊。太急了

我踢飞你！！！欺骗我纯真善良的感情！！

〉〉要求在更改TPage的属性时TPrintPanel发生Paint。
还帮什么？TPageClass只有FTop,FLeft,FRight,FBottom四个属性，在write 方法的时候
触发paint就行了呗。....哎，不说了，要说的Pipi.都说了。

提个建议。
你把那些次要代码和主要代码分开，好多人没有耐心看的
这个建议至少10分

我自己搞出来了，谢谢各位，不过分我要收回来了！

**** !!!

鉴于欺骗了DFW同胞的纯真感情，这100分发了！

搞定了也不说说，

我被骗了

kao

我也被。。。

亏大了。

这一着高，不错，我也被骗了

谁对这样的女人感兴趣?准有病