обработчки событий ImageMauseDown???

[casio23]

столкнулся с проблемой,не могу реализовать нажатие на изображение в нужном месте картинки.

На форме есть компонент Timage1, в нем изображение,на нем нарисованы 2 прямоугольные кнопки,и одна круглая. Как сделать так что бы при нажатии на эту нарисованную кнопку происходило какое то событие...


P/S если можно примеры....

СПАСИБО!

[Johnson]

1 - лучше использовать OnMouseUp
2 - только проверкой на совпадение координат.

[casio23]

Сообщение от Johnson

1 - лучше использовать OnMouseUp
2 - только проверкой на совпадение координат.

можно пример...если не тяжело

и как проверять на совпадение координат если они не известны

[Johnson]

Примера дать не могу - на работе нет компилятора, а на память все параметры события не помню...
Координаты нажатия передаются в параметрах эвента... что-то вроде X,Y:integer;

[casio23]

14:55

Сообщение от Johnson

Примера дать не могу - на работе нет компилятора, а на память все параметры события не помню...
Координаты нажатия передаются в параметрах эвента... что-то вроде X,Y:integer;

ну вот я делаю вот так

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if Image1.Picture.Bitmap.Empty then
  begin
    // Выполнять анализ
    ShowMessage('ИЗВЕСТНЫ X = ' + IntToSTr(X) + ', Y = ' + IntToStr(Y));
  end;
end;

ничего не происходит

15:08

исправил вот так, коорднаты клика показывает

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('Coordinates: X=' + IntToStr(X) +
              ' Y=' + IntToStr(Y));
end;

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

Зачем вы отвечаете с цитированием всего предыдущего поста ?
Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением ?
За оверквотинг у нас штрафуют, имейте это ввиду.
Дабы не нарушать правила раздела, внимательно их почитайте...
Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
Читаем правила раздела.
По правилам это приравнивается к флуду.
Читаем правила раздела.
Там подробно написано, как следует оформлять код и что получается, если этого не делать.

[mihali4]

Буду штрафовать вплоть до бана, раз слова не понимаете...

[phomm]

У Image есть свойства Top и Left - это координаты размещения верхнего угла имейджа на форме, ещё есть Width и Height - это ширина и высота имейджа.
если хотите можете сделать чисто математически. вычислить где центр окружности (отсчитывая от верхенего левого угла имейджа) и в уравнении окружности посчитать попадает ли точка (координаты курсора) в область окружности. учтите это работает только с идеальной окружностью.
Есть ещё дурной способ - узнать числовое значение цвета на Вашей круглой кнопке и через image1.canvas.pixel[x,y{причем тут потребуется перевод в координаты имейджа}] сравнивать с цветом этой области, если цвета совпадают - значит щелкнули по окружности.

[casio23]

Может есть какой то компонент который как бы "приклеиться" в определенной области картинки?

[mihali4]

Поместите картинку на панель, и на панель же киньте нужные вам кнопки...

[phomm]

Есть компонент Tshape, умеющий принимать форму окружности и другие, можно его подсовывать, используя что-то вроде

ControlAtPos(ClientToScreen(MousePos), True, True);

можно проверять попадание в область контрола.