如何做出先金山词霸一样的提示窗? ( 积分: 50 )

lt66 · 2005-12-17

如题

lt66 · 2005-12-17

如题

雾锁长河 · 2005-12-17

我想应该是在获得鼠标位置后在该位置显示一个窗口，该窗口的宽度和高度根据显示的内容动态调整。鼠标离开后关闭窗口。

lt66 · 2005-12-18

是啊, 但如何做呢?

Txh2005 · 2005-12-18

用 hint不行吗

雾锁长河 · 2005-12-18

hint不能做按钮啊。金山词霸上有按钮。 窗口关闭：onmouseleave 窗口宽度调整：应该可能根据一个autosize的label控件的宽度在oncreate重设窗口宽度。 窗口位置：getcusorpos获得光标坐标。如果是鼠标可以通过onmousemove来获得(x,y)坐标。

plenilune168 · 2005-12-18

纠正一下楼上的，GetCursorPos获取的是鼠标在屏幕的绝对坐标而不是光标坐标，OnMouseMove获得的鼠标坐标只是相对于窗体的坐标，如果用来作为另一个窗体显示定位的坐标的话还必须加上当前窗体坐标的绝对坐标值（left和top），并且只有在当前窗体获得焦点的时候OnMouseLeave/OnMouseMove事件才能触发，所以通过OnMouseMove事件实现以上功能并不是很合适。

plenilune168 · 2005-12-18

我简单写了个例子，基本能够实现： 工程文件 ----------------------------------------------------- program Project1; uses  Forms,  Unit1 in 'Unit1.pas' {Form1},  Unit2 in 'Unit2.pas' {Form2}; {$R *.RES} begin  Application.Initialize;  Application.CreateForm(TForm1, Form1);  Application.CreateForm(TForm2, Form2);  Application.Run; end. 主窗体：*.pas -------------------------------------------------- unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  ExtCtrls; type  TForm1 = class(TForm)    Timer1: TTimer;    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure Timer1Timer(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  PShow:TPoint; implementation uses Unit2; {$R *.DFM} procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  //点击鼠标显示提示窗体  //获取当前鼠标坐标  GetCursorPos(PShow);  //定位显示提示窗体  Form2.Left:=PShow.X+5;  //这里取偏移5显示  Form2.Top:=PShow.Y+5;   //这里取偏移5显示  Form2.Show;  //启动延时检测是否该关闭提示窗体  Timer1.Enabled:=false;  Timer1.Interval:=1000;   //这里取1秒定时周期  Timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); var P:TPoint; begin  if not Form2.Visible then  begin //如果提示窗体已经关闭，则终止定时    Timer1.Enabled:=false;    exit;  end;  //获取当前鼠标坐标  GetCursorPos(P);  if ((Abs(PShow.X-P.X)>5) or (Abs(PShow.Y-P.Y)>5)) then  begin  //如果鼠标的偏移量超过某一个限度（这里取5，可以根据实际情况调整）    if (P.X<Form2.Left) or       (P.X>Form2.Left+Form2.Width) or       (P.Y<Form2.Top) or       (P.Y>Form2.Top+Form2.Height) then    begin  //鼠标位置不在提示窗体范围内      Timer1.Enabled:=false;  //终止定时      Form2.Close;  //关闭提示窗体    end;  end; end; end. 主窗体：*.dfm ------------------------------------------ object Form1: TForm1  Left = 272  Top = 237  Width = 450  Height = 361  Caption = 'Form1'  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  OnMouseDown = FormMouseDown  PixelsPerInch = 96  TextHeight = 13  object Timer1: TTimer    Enabled = False    OnTimer = Timer1Timer    Left = 100    Top = 16  end end 提示窗体：*.pas ----------------------------------------------- unit Unit2; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, Buttons; type  TForm2 = class(TForm)    SpeedButton1: TSpeedButton;    Label1: TLabel;    procedure SpeedButton1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form2: TForm2; implementation {$R *.DFM} procedure TForm2.SpeedButton1Click(Sender: TObject); begin  //关闭按钮  Close; end; end. 提示窗体：*.dfm   设为 AutoSize = True BorderStyle = bsNone ------------------------------------------- object Form2: TForm2  Left = 516  Top = 164  AutoSize = True  BorderStyle = bsNone  BorderWidth = 2  Caption = 'Form2'  ClientHeight = 71  ClientWidth = 163  Color = 11599871  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object SpeedButton1: TSpeedButton    Left = 0    Top = 0    Width = 23    Height = 22    Flat = True    OnClick = SpeedButton1Click  end  object Label1: TLabel    Left = 1    Top = 32    Width = 162    Height = 39    Caption =      '  演示数据演示数据演示数据  '#13#10'  演示数据演示数据演示数据  '#13#10 +      '  '  end end

lt66 · 2005-12-19

谢谢了,我先试试

lt66 · 2005-12-31

谢谢大家了

如何做出先金山词霸一样的提示窗? ( 积分: 50 )

lt66

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

雾锁长河

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

Txh2005

Unregistered / Unconfirmed

雾锁长河

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

Similar threads

如何做出先 金山词霸 一样的 提示窗? ( 积分: 50 )

lt66

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

雾锁长河

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

Txh2005

Unregistered / Unconfirmed

雾锁长河

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

lt66

Unregistered / Unconfirmed

Similar threads

如何做出先金山词霸一样的提示窗? ( 积分: 50 )