Форум: "Основная";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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

---

← →
TStas ©   (2007-03-18 19:06) [3]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.052 c