Не срабатывает CursorPos

@Thundertroll · Регистрация: 17.08.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте. Подскажите, почему может не срабатывать CursorPos?

Delphi

procedure TForm2.Image1Click(Sender: TObject);
var
  p: TPoint;
begin
  p:=ScreenToClient(mouse.cursorpos);
  label1.Caption:=(inttostr(p.x)+' '+inttostr(p.y));
end;

В половине кликов работает как надо, в половине просто ничего не происходит.

@Puporev · 11.09.2016, 17:46

Значит мимо Image кликаешь.

@Thundertroll · 11.09.2016, 17:48 **[ТС]**

серьезно?

@Puporev · 11.09.2016, 17:49

Положил на форму только Image, все работает когда кликаю по нему.

@Thundertroll · 11.09.2016, 18:03 **[ТС]**

а чтобы в месте клика изображение рисовалось? Так-то да, если на форме только имейдж и лейбл, то работает. Но если при этом рисовать картинку с топ и лефт равный х и у клика - то он хочет - рисует, хочет - не рисует, и я никак не могу врубиться, в чем закономерность.

@Puporev · 11.09.2016, 18:25

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

Но если при этом рисовать картинку с топ и лефт равный х и у клика

Так Вам нужно не координаты экрана, а Image.

Добавлено через 2 минуты
Это можно получить в событии OnMouseDown Image.

Добавлено через 6 минут
Вот так я рисую в нужной точке Image.

Delphi

var
  Form1: TForm1;
  b: TBitmap;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=clWhite;
b:=TBitmap.Create;
b.LoadFromFile('1.bmp');
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.Draw(X,Y,b);
end;

@Thundertroll · 11.09.2016, 19:27 **[ТС]**

А можно как-то сослаться на этот TBitmap? На его координаты? Удалить его потом, подвигать, сравнить местоположение с другими изображениями... Или что нарисовано однажды, уже не разрисовать?

Что же касается OnClick'a (или MouseDown, одинаково). Обнаружил, что он не срабатывает не только если TImage заслонен непосредственно другим рисунком (у меня фигурка персонажа размером 40*40), но и на 80 пикселей вправо и вниз от этой фигурки. Это как так? Пустое место же вроде. (однако Ваш первый комментарий оказывается, тащем-та, верным

)

@Puporev · 11.09.2016, 19:33

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

Что же касается OnClick'a (или MouseDown, одинаково).

MouseDown дает сразу координаты точки, в OnClick их нужно определять.
Про остальное не понял, у меня все рисуется как я хочу.

@Thundertroll · 11.09.2016, 19:39 **[ТС]**

Можно как-то координаты клика в mousedown в переменную записать?
Так-то у меня тоже рисуется, но мне не только рисовать надо. Мне бы еще с нарисованным работать, перемещать, удалять и т.д.

@Puporev · 11.09.2016, 19:51

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

мне не только рисовать надо. Мне бы еще с нарисованным работать, перемещать, удалять и т.д.

Извините, я не понимаю что Вам нужно, не экстрасенс. А координаты клика если нужно храните в массиве

Delphi

1	mas:array of TPoint;

@Thundertroll · 11.09.2016, 20:22 **[ТС]**

уррра разобрался!!! не уверен, будет ли кто-то писать таким же способом, как я... но вкратце - добавил еще один TImage, прозрачный (не совсем прозрачный, а типа рамку), поместил его поверх всего и на него натравил onclick. Теперь все работает, как хотелось = )

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.09.2016, 17:46	2
	Значит мимо Image кликаешь. 0

@Thundertroll 0 / 0 / 0 Регистрация: 17.08.2016 Сообщений: 6
	11.09.2016, 17:48 [ТС]	3
	серьезно? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.09.2016, 17:49	4
	Положил на форму только Image, все работает когда кликаю по нему. 0

@Thundertroll 0 / 0 / 0 Регистрация: 17.08.2016 Сообщений: 6
	11.09.2016, 18:03 [ТС]	5
	а чтобы в месте клика изображение рисовалось? Так-то да, если на форме только имейдж и лейбл, то работает. Но если при этом рисовать картинку с топ и лефт равный х и у клика - то он хочет - рисует, хочет - не рисует, и я никак не могу врубиться, в чем закономерность. 0

@Thundertroll 0 / 0 / 0 Регистрация: 17.08.2016 Сообщений: 6
	11.09.2016, 19:27 [ТС]	7
	А можно как-то сослаться на этот TBitmap? На его координаты? Удалить его потом, подвигать, сравнить местоположение с другими изображениями... Или что нарисовано однажды, уже не разрисовать? Что же касается OnClick'a (или MouseDown, одинаково). Обнаружил, что он не срабатывает не только если TImage заслонен непосредственно другим рисунком (у меня фигурка персонажа размером 40*40), но и на 80 пикселей вправо и вниз от этой фигурки. Это как так? Пустое место же вроде. (однако Ваш первый комментарий оказывается, тащем-та, верным ) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.09.2016, 19:33	8
	Сообщение от Thundertroll Что же касается OnClick'a (или MouseDown, одинаково). MouseDown дает сразу координаты точки, в OnClick их нужно определять. Про остальное не понял, у меня все рисуется как я хочу. Миниатюры 0

@Thundertroll 0 / 0 / 0 Регистрация: 17.08.2016 Сообщений: 6
	11.09.2016, 19:39 [ТС]	9
	Можно как-то координаты клика в mousedown в переменную записать? Так-то у меня тоже рисуется, но мне не только рисовать надо. Мне бы еще с нарисованным работать, перемещать, удалять и т.д. 0

@Thundertroll 0 / 0 / 0 Регистрация: 17.08.2016 Сообщений: 6
	11.09.2016, 20:22 [ТС]	11
	уррра разобрался!!! не уверен, будет ли кто-то писать таким же способом, как я... но вкратце - добавил еще один TImage, прозрачный (не совсем прозрачный, а типа рамку), поместил его поверх всего и на него натравил onclick. Теперь все работает, как хотелось = ) 0