Tweet
procedure TForm1.PMTaskBar(var Message: TMessage);<br>
begin<br>
Case Message.lParam of<br>
WM_RButtonDown : ShowPopupMenu;<br>
<B>WM_LButtondown : Show;</b> <font color='red'>//Doppelclick?</font><br>
end;<br>
end;<br>
<br>
wie bring ich das zu nem <font color='red'>Doppelclick</font>?<br>
begin<br>
Case Message.lParam of<br>
WM_RButtonDown : ShowPopupMenu;<br>
<B>WM_LButtondown : Show;</b> <font color='red'>//Doppelclick?</font><br>
end;<br>
end;<br>
<br>
wie bring ich das zu nem <font color='red'>Doppelclick</font>?<br>
Comment