команда определения координат положения курсора мыши

[Aспирин]

Моя задача таков - сделать меню, в котором будет несколько кнопок с название рисунков (типа домик, кораблик и т.д.). При нажатии на эти кнопки в поле должно появляться изображение. Эти изображения буду рисовать при помощи канвас. Но мне надо сделать так, чтобы изображения рисовались именно там, куда я ткну мышкой. Вопрос: какая команда определения координат положения курсора мыши и как в данной ситуации её использовать?

[novichok1]

Здравствуйте. Если я точно понял вопрос то вам андо воспользоваться событием MouseMove формы, там же x , y вам дают координаты мышки.

[Aспирин]

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

Здравствуйте. Если я точно понял вопрос то вам андо воспользоваться событием MouseMove формы, там же x , y вам дают координаты мышки.

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

[psycho-coder]

Ёлки...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label3.Caption := IntToStr(X);
  Label4.Caption := IntToStr(Y);
end;

end.

[Aспирин]

Сообщение от psycho-coder

Ёлки...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label3.Caption := IntToStr(X);
  Label4.Caption := IntToStr(Y);
end;

end.

Не особо понял, а точнее СОВСЕМ не понял.

[Человек_Борща]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label3.Caption := IntToStr(X);
  Label4.Caption := IntToStr(Y);
end;

Событие происходит когда мышь движется над формой.
В "красные" параметры передаются текущие x,y координаты мыши.
Далее и дураку понятно что переводятся числа в строку.

[psycho-coder]

СОВСЕМ не понял.

Я могу показаться грубым но, а Вы ПЫТАЛИСЬ понять?

[Человек_Борща]

А чтобы получить координаты с экрана надо:
1. Таймер (Интервал 50 мс)
2. 1 метка (TLabel)
2.

Procedure GetCursorCurrPos;
const
   MousePos='X %d:Y %d';
var
  Pos:TPoint; //Имеет X и Y
begin
GetCursorPos(Pos);  //Передаём в точку 
Form1.Label1.Caption:=Format(MousePos,[Pos.X,Pos.Y]); //Выводим на экран
end;

А уж в событие OnTimer извольте сами написать
На ваш вопрос ответ прекрасно дан.

[Aспирин]

Сделал всё как надо, а результата никакого, не пишет оно координаты.

[psycho-coder]

Телепаты в отпуске, покажите код который вы написали.