当鼠标停止在某个控件上(50分)

ccdarkness · 2006-06-26

当鼠标停止在某个控件上怎么相应消息? 如: 当鼠标划过listbox控件上方,listbox的宽度增加100 问题是怎么知道鼠标现在在listbox上方? 或者怎么实现焦点离开listbox的时候响宽度减少100

蓝叶菱 · 2006-06-26

给你一个例子，希望能够帮助你。。。。 如果对于TListBox,可能需要修改类库，或者直接派生。 －－－－ CM_MOUSEENTER 和 CM_MOUSELEAVE。  Below 已经提供了部分使用它们的代码， 我试了，对TSPEEDBUTTON有效，相信对其它也有效。 unit SomeForm; interface type  TSomeForm = class(TForm)    private      procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;      procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;  end; implementation procedure TSomeForm.CMMouseEnter(var Msg: TMessage); var  anObject :        TObject; begin  { anObject is the control over which the mouse is right now }  anObject := TObject(Msg.lParam);  if anObject  nil then begin    { First, you must find WHICH is the control under the mouse cursor, }    { then, determine what action to do, etc... }  end; end; procedure TSomeForm.CMMouseLeave(var Msg: TMessage); begin  { anObject is the control which the mouse has just gone out of }  anObject := TObject(Msg.lParam);  if anObject  nil then begin    { First, you must find WHICH is the control }    { the mouse cursor has just left, }    { then, determine what action to do, etc... }  end; end; end. －－－－－－－－－－－ 这样改写。。。 TForm1 TCXListBox=class(TlistBox)  public;  把刚才上面的改改    private      procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;      procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;  end; ....

ccdarkness · 2006-06-26

if anObject  nil then begin 这句是什么意思? "我试了，对TSPEEDBUTTON有效，相信对其它也有效" 可否把代码给出

ccdarkness · 2006-06-26

private    { Private declarations }    ／／定义两个过程:    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE; procedure TForm1.CMMouseEnter(var Msg: TMessage); var  anObject : TObject; begin  anObject := TObject(Msg.lParam);        //Button1为要感知的组件，可以换为其它组件        if anobject = Button1 then                edit1.Text :='Mouse Enter'; end; procedure TForm1.CMMouseLeave(var Msg: TMessage); var  anObject : TObject; begin  anObject := TObject(Msg.lParam);  if anobject = Button1 then    edit1.Text := 'Mouse Leave'; end;

当鼠标停止在某个控件上(50分)

ccdarkness

Unregistered / Unconfirmed

蓝叶菱

Unregistered / Unconfirmed

ccdarkness

Unregistered / Unconfirmed

ccdarkness

Unregistered / Unconfirmed

Similar threads