Отпускание кнопки мыши

← →
San ciz (2007-03-17 22:07) [0]

подскажите как сделать чтобы компонент(Тimage) например реагировал на отпускание тоьлко левой кнопки мыши.

на нажатие он реагирует таким способом:

procedure TForm3.IMouseВщцт(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
end;

а на отпускание нет(

← →
easy © (2007-03-17 22:19) [1]

if Button = mbLeft then

← →
Efir © (2007-03-18 00:10) [2]

OnMouseUp

Можно компонент написать или просто наследовать от TGraphicControl, а там не публиковать OnClick

Отпускание кнопки мыши Найти похожие ветки