鼠标进入某控件时显示一个窗口并移动它

今天想实现一个功能，就是鼠标移动到一个Panel上时，显示第二个窗口，并且这个窗口可以跟着鼠标移动，当鼠标离开这个Panel时隐藏这个窗口。一开始不知怎么做，后来发很不是很难。大体就是把鼠标的坐标转成屏幕坐标后，设置第二个窗口的left和top属性。代码如下：

 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2;//要Use一下Unit2，因为要用到第二个Form {$R *.dfm} procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var MousePoint : TPoint; //记录鼠标的位置 begin //记下鼠标在panel1中的位置 MousePoint.X := x; MousePoint.Y := y; MousePoint := Panel1.ClientToScreen(MousePoint); //把鼠标在panel1中的位置转成在屏幕中的位置 Form2.Left := MousePoint.X - Round(Form2.Width div 2); //设置Form2的Left Form2.Top := MousePoint.Y +20; if Form2.Visible = False then Form2.Show; //如果Form2没有显示，就把它show出来 end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Form2.Visible = True then Form2.Hide;//如果Form2是可见的，就把它隐藏 end; end.