|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
lg1326 (QuestionMan) |
▲△△△△ |
-
|
普通会员 |
|
2022/1/22 14:46:46 |
标题: |
TImage控件怎么做到TButton一样屏蔽双击事件? |
浏览:695 |
|
加入我的收藏 |
楼主: |
我尝试在双击消息中发送单击消息, 但是这样做会看不到Image鼠标按下时的图片。
procedure TImage.WMLButtonDown(var Message: TWMLButtonDown); begin if FPicturePress.Graphic <> nil then Picture.Graphic := PicturePress.Graphic; end; procedure TImage.WMLButtonDblClk(var Message: TWMLButtonDblClk); begin var lparam : NativeInt := Message.XPos + Message.YPos shl 16; Perform(WM_LButtonDown, 0, lparam); Perform(WM_LBUTTONUP, 0, lparam); end;
----------------------------------------------
- |
|