问题1可以参考以下代码: unit Unit1::::::::::::::::::::::::::::::::: ... ... var Form1: TForm1; HideTime:Integer=3;//一定时间后隐藏 implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject); var P:Tpoint; begin GetCursorPos(P); if P.x>Screen.Width-2 then Show else if(Left>Screen.Width-Width-2)and(HideTime<=0)then Hide; if Left>Screen.Width-Width then Left:=Screen.Width-Width; Dec(HideTime); end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin HideTime:=3;//一定时间后隐藏 end; end.问题2可以用现成的控件.
unit Unit1:::::::::::::::::::::::::::::::::
...
...
var
Form1: TForm1;
HideTime:Integer=3;//一定时间后隐藏
implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);
var
P:Tpoint;
begin
GetCursorPos(P);
if P.x>Screen.Width-2 then Show else if(Left>Screen.Width-Width-2)and(HideTime<=0)then Hide;
if Left>Screen.Width-Width then Left:=Screen.Width-Width;
Dec(HideTime);
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
HideTime:=3;//一定时间后隐藏
end;
end.问题2可以用现成的控件.