procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
panel1.Color := clred;
end;我希望按下鼠标键(不要放开)时执行这个过程,按下左键没有问题,按下右键要放开后才能反应,怎样使右键和左键一样啊?我试过用捕获WM_RBUTTONDOWN消息的办法也不行
Shift: TShiftState; X, Y: Integer);
begin
panel1.Color := clred;
end;我希望按下鼠标键(不要放开)时执行这个过程,按下左键没有问题,按下右键要放开后才能反应,怎样使右键和左键一样啊?我试过用捕获WM_RBUTTONDOWN消息的办法也不行
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货