События мышки

← →
BAngel (2006-05-08 13:37) [0]

Помогите пожалуйста разобраться. Мне нужно что бы прога распознавала когда я на картинке нажимая ЛКМ, а когда ПКМ

← →
KilkennyCat © (2006-05-08 13:41) [1]

procedure TForm1.KaртинкаMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

Button может принимать следующие значения: mbLeft, mbRight, mbMiddle

end;

← →
BAngel (2006-05-08 14:08) [2]

у меня щас некоторые проблемы с делфи, так что не могу проверить. Зарание спасибо. Я ещё вернусь с вопросами

← →
Пусик © (2006-05-08 14:15) [3]

> BAngel

Что есть каритинка?

← →
BAngel (2006-05-08 14:34) [4]

>
> Что есть каритинка?
TImage

← →
BAngel (2006-05-08 21:46) [5]

> procedure TForm1.KaртинкаMouseDown(Sender: TObject; Button:
> TMouseButton;

А как эту процедуру вызывать. Она почему то не ставится в Object Inspector на OnMouseDown

← →
Мефисто (2006-05-08 22:37) [6]

>> А как эту процедуру вызывать. Она почему то не ставится в Object Inspector на OnMouseDown

Ее не вставляют. В обработчике компонента OnMouseDown пищем

case Button of
mbLeft: ... ;
mbRight: ... ;
mbMiddle: ... ;
end;

События мышки Найти похожие ветки