procedure MSGEnter(var msg:TMessage);message CM_MOUSEENTER;//响应进入的消息
procedure MSGLeave(var msg: TMessage);message CM_MOUSELEAVE;//响应离开的消息
delphi;gutter:true;
procedure Button1Click(Sender: TObject);
procedure tbStatusToolBarMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
procedure TBXItem1Click(Sender: TObject);
procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
function GetEditText: string;
procedure MSGEnter(var msg:TMessage);message CM_MOUSEENTER;//响应进入的消息
procedure MSGLeave(var msg: TMessage);message CM_MOUSELEAVE;//响应离开的消息
{ Private declarations }
public
{ Public declarations }
end;</p>
<p>procedure TForm2.MSGEnter(var msg: TMessage);
var
myobj : TObject;
begin
// myobj := TObject(msg.LParam);//用LParam进行判断鼠标进入了哪个控件
// if (myobj <> nil) and (myobj is TPanel) then
// TPanel(myobj).Caption := 'enter';
end;</p>
<p>procedure TForm2.MSGLeave(var msg: TMessage);
var
myobj : TObject;
begin
myobj := TObject(msg.LParam);
// if (myobj <> nil) and (myobj is TPanel) then
// begin
// TPanel(myobj).Visible := False;
// Button2.Tag := 0;
// end;
//TPanel(myobj).Caption := 'leave';
end;
Original: https://www.cnblogs.com/zhangzhifeng/p/9982703.html
Author: ╰★张志峰★╮
Title: delphi 响应鼠标进入控件消息
原创文章受到原创版权保护。转载请注明出处：https://www.johngo689.com/548970/
转载文章受原作者版权保护。转载请注明原作者出处！