柳五公子!!!!!!!(0分)

谢谢 柳五公子和flier,红包一起送上!!!!!
柳五公子名字好听,又加上乐于助人,在下谢谢了!!!!!!
本人还有一问题是,你的程序我移植到builder下,
程序如下:
void __fastcall TForm1::FormEndDock(TObject *Sender, TObject *Target,
int X, int Y)
{
TPoint pt;
if (Shape1->Floating)
{
pt = Point(Shape1->Top,Shape1->Left);
pt = Form1->ScreenToClient(Shape1->ClientToScreen(pt));
Shape1->Parent = Form1;
Shape1->Top = pt.x;
Shape1->Left = pt.y;
}
}
delphi中的程序
procedure TForm1.Shape1EndDock(Sender, Target: TObject;
X, Y: Integer);
var pt :TPoint;
begin
if Shape1.Floating then
begin
pt := Point(Shape1.top,shape1.left);
pt := Shape1.ClientToScreen(pt);
pt := Self.ScreenToClient(pt);
Shape1.parent := Form1;
Shape1.Top := pt.x;
Shape1.Left := pt.y;
end;
end;
这一程序跟柳五公子的一样!!!
结果与delphi种的结果不一样.另外就是还是隐约可见toolwindows,这一问题
在delphi中会出现????
能解决吗?????
我等你和大家的指教!!!!!!!


--------------------------------------------------------------------------------

hongdo:
我在你接受答案后，又在你的问题后面加了一段注释，你去看看！不多说了，
有什么问题你再往这儿贴吧！

柳五经历如此感情波折还能谈笑如风，助人为乐。
Nuke佩服！

（苦笑）现在我只能乖乖的陪大富婆了！
nuke:我还有事求教，待会我给发mail!

几个信箱都被停了哦！
说是政府让停的.........
????
该不是要检查反动邮件吧！？？？
....
罢
但愿早点回复了

是呀，我的263信箱也给停了，信正在写呢，我寄到xiaxin@yeah.net你能收到吧？

现在还没收到
寄到xiaxin@yeah.net吧。再往xiaxin@990.net发一份 。
总有一个收得到

接受答案了.